Гласных, согласных букв смотря который из них больше поменять символом @ - VB

Option Explicit
Option Compare Text
 
Sub Main()
    Dim s As String, i As Integer, nGl As Integer, nSg As Integer
    Dim Gl As String, Sg As String, s1 As String
    Gl = "уеёыаоэяию"
    Sg = "йцкнгшщзхъфвпрлджчсмтьб"
    s1 = "@"
    s = InputBox("Введите фразу", "Ввод данных", "Гласных, согласных букв смотря")
    For i = 1 To Len(s)
        If Mid(s, i, 1) Like "[уеёыаоэяию]" Then nGl = nGl + 1
        If Mid(s, i, 1) Like "[йцкнгшщзхъфвпрлджчсмтьб]" Then nSg = nSg + 1
    Next i
    If nGl > nSg Then
        For i = 1 To Len(Gl)
            s = Replace(s, Mid(Gl, i, 1), s1)
        Next i
    ElseIf nGl < nSg Then
        For i = 1 To Len(Sg)
            s = Replace(s, Mid(Sg, i, 1), s1)
        Next i
    Else
        MsgBox "Поровну"
        Exit Sub
    End If
    MsgBox s
End Sub
 
Private Sub Command1_Click()
    Main
End Sub