Процедура, определяющая общие символы для двух строк - VB

Формулировка задачи:

Есть задача: "В два текстовых поля вводятся две строки символов. При нажатии кнопки запускается процедура, которая определяет, есть ли в этих строках одинаковые символы, и если есть, то они выводятся в текстовое окно" Примерный код такой, в чем ошибка?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim str1, str2, str3 As String
Dim char, char1 As String
Dim i, j As Integer
i = 1
j = 1
Do While i <= Len(str1)
char = Mid(str1, i, 1)
 Do While j <= Len(str2)
 char1 = Mid(str2, j, 1)
 If char = char1 Then
 str3 = str3 + char
 Else
 str3 = str3
 j = j + 1
 End If
 i = i + 1
 Loop
Loop
Text3.Text = str3
 
End Sub

Решение задачи: «Процедура, определяющая общие символы для двух строк»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim str1, str2, str3 As String
Dim char, char1 As String
Dim i, j As Integer
i = 1
 
str3 = ""
str1 = Text1.Text
str2 = Text2.Text
Do While i <= Len(str1)
char = Mid(str1, i, 1)
j = 1
  Do While j <= Len(str2)
     char1 = Mid(str2, j, 1)
     If char = char1 Then
        str3 = str3 & char
     End If
   j = j + 1
  Loop
 i = i + 1
Loop
Text3.Text = str3
 
End Sub