Выделить цветом и подсчитать слова, не имеющих рядом стоящих гласных

Dim F As Long
Dim MyText, s, sTemp As String
 
Private Sub CommandButton1_Click()
Dim i, j As Long
Dim count As Integer
Dim flag As Boolean
TextBox2.Text = ""
TextBox3.Text = ""
F = FreeFile
count = 0
Open Application.ActiveWorkbook.Path & "\" & TextBox1 & ".txt" For Input As #F
Do Until EOF(F)
    Line Input #F, MyText
    s = ""
    MyText = MyText & " "
    For i = 1 To Len(MyText)
        If (Mid(MyText, i, 1) = " ") Or (Mid(MyText, i, 1) = vbCrLf) Then
        If (Len(s) > 0) Then
        TextBox2.Text = TextBox2.Text & s & vbCrLf
        s = s & " "
        'sTemp = Mid(s, 1, 1)
        sTemp = ""
        flag = True
        For j = 1 To Len(s)
            If (Mid(s, j, 1) Like "[ 0123456789,.!:?;-\/()]") Or (Mid(s, j, 1) Like Chr(34)) Or (Mid(s, j, 1) Like Chr(109)) Then
            If flag And (Len(sTemp) > 0) Then
            TextBox3.Text = TextBox3.Text & sTemp & vbCrLf
            count = count + 1
            End If
            flag = True
            sTemp = ""
            Else
            If (InStr(StrConv(sTemp, 2), Mid(s, j, 1)) = 0) And flag Then
            sTemp = sTemp & Mid(s, j, 1)
            Else
            flag = False
            End If
            End If
        Next j
        End If
        s = ""
        Else
        s = s & Mid(MyText, i, 1)
        End If
    Next i
Loop
TextBox3.Text = TextBox3.Text & "слов с не повторяемыми буквами - " & count & vbCrLf
Close #F
 
End Sub