哪位大俠幫我做個VB（visual basic）題目，就是，輸入很多行字符串，然後去掉重復的，統計***有多少個

Private?Sub?Command1_Click()

Dim?a()?As?String,?i?As?Integer,?p?As?String

a()?=?Split(Me.Text1.Text,?vbCrLf)

p?=?""

Me.List1.Clear

Me.List1.AddItem?a(0)

For?i?=?1?To?UBound(a)

If?Not?Repeat(Me.List1,?a(i))?Then?Me.List1.AddItem?a(i)

Next

MsgBox?"總***個數："?&?Me.List1.ListCount

End?Sub

Function?Repeat(a?As?ListBox,?b?As?String)?As?Boolean

Dim?t?As?Integer

For?t?=?0?To?Me.List1.ListCount?-?1

If?Me.List1.List(t)?=?b?Then?Repeat?=?True

DoEvents

Next

Repeat?=?False

End?Function