Составьте программу,позволяющую найти долю согласных букв в строке,не содержащей знаков препинания

VB. Dim i As Integer Dim summ As Integer Dim simv As String        simv = "бвгджзклмнпрстфхцчшщ"        Dim n As String        n=InputBox ("Введите строку")         For i = 1 To Len(n)             If InStr(simv, Mid(CStr(n), i, 1)) > 0 Then summ += 1         Next      '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535   MsgBox("Всего согласных в строке " & summ & ", что является " & Len(n) & "/" & summ & "=" & Len(n) / summ & " долей")