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

Option Base 1
Private Sub cmd1_Click()
Dim sStr1 As String, sStr2 As String, masSStr1() As String, masSStr2() As String
sStr1 = InputBox("Введите 1ю строку")
sStr2 = InputBox("Введите 2ю строку")
txt1.Text = sStr1
txt2.Text = sStr2
ReDim masSStr1(Len(sStr1))
For i1 = 1 To Len(sStr1)
sDest = Mid(sStr1, i1, 1)
masSStr1(i1) = sDest
Next i1
ReDim masSStr2(Len(sStr2))
For i2 = 1 To Len(sStr2)
sDest = Mid(sStr2, i2, 1)
masSStr2(i2) = sDest
Next i2
For i1 = 1 To Len(sStr1)
For i2 = 1 To Len(sStr2)
If masSStr1(i1) = masSStr2(i2) Then
Print masSStr1(i1)
End If
Next i2
Next i1
End Sub

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