Определение одинаковых символов - VB

Private Sub Text1_Change()
Label1 = o(Text1.Text, Text2.Text)
End Sub
Private Sub Text2_Change()
Label1 = o(Text1.Text, Text2.Text)
End Sub
Function o(t1 As String, t2 As String) As String
Dim o1 As String
For i = 1 To Len(t1)
  For j = 1 To Len(t2)
    If Mid(t1, i, 1) = Mid(t2, j, 1) And _
       Asc(Mid(t1, i, 1)) <> 32 And Asc(Mid(t1, i, 1)) <> 10 Then
      For k = 1 To Len(o1)
       If Mid(t1, i, 1) = Mid(o1, k, 1) Then GoTo 1
      Next k
       o1 = o1 & Mid(t1, i, 1)
       o = o & Mid(t1, i, 1) & " , "
1   End If
  Next j, i
  If Len(o) > 3 Then o = Left(o, Len(o) - 3)
End Function