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

Private Sub Command1_Click()
Dim glas As String, slovo, frasa As String
Dim temp As String, st As String, i As Integer, j As Integer
glas = "аяоёуюэеыи"
frasa = InputBox("Введите строку", , "Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово")
slovo = Split(frasa)
For i = 0 To UBound(slovo)
  For j = 1 To Len(slovo(i))
     If InStr(1, glas, Mid(slovo(i), j, 1), 1) > 0 Then
        temp = temp + Mid(slovo(i), j, 1)
     End If
  Next j
  st = st + AlphabetSort(temp) + "  "
  temp = ""
Next i
slovo = Join(slovo)
MsgBox slovo & vbLf & st, vbInformation
End Sub
Function AlphabetSort(ByVal sString As String) As String
    Dim bSorted As Boolean, i As Integer, sTemp As String
      Do While Not bSorted
        bSorted = True
        For i = 1 To Len(sString) - 1
            If Mid(sString, (i + 1), 1) < Mid(sString, (i), 1) Then
                bSorted = False
                sTemp = Mid(sString, (i), 1)
                Mid(sString, (i), 1) = Mid(sString, (i + 1), 1)
                Mid(sString, (i + 1), 1) = sTemp
            End If
        Next
        AlphabetSort = sString
    Loop
End Function