Напечатать в алфавитном порядке все элементы заданного множества, входящие во множество букв - VB

Private Sub Command1_Click()
Dim letters(26)
Label1 = ""
For i = 97 To 122
letters(i - 96) = Chr(i)
If Label1 <> "" Then Label1 = Label1 & " , "
Label1 = Label1 & letters(i - 96)
Next i
Label2 = ""
For i = 1 To 26
For j = 1 To Len(Text1.Text)
If InStr(1, letters(i), Mid(Text1.Text, j, 1)) > 0 Then
If Label2 <> "" Then Label2 = Label2 & " , "
Label2 = Label2 & Mid(Text1.Text, j, 1)
End If
Next j
Next i
End Sub