Массив: подсчет символов в строке

Private Sub Command1_Click()
Dim stroka As Variant, k As Byte, i As Integer, char As String
stroka = InputBox("vvedite text")
char = InputBox("Vvedite simvol")
k = 0
For i = 1 To Len(stroka)
If Mid(stroka, i, 1) = char Then k = k + 1
Next i
If k = 0 Then MsgBox ("Net takix"): Exit Sub Else MsgBox (k): Exit Sub
End Sub

Private Sub Command1_Click()
Dim stroka As Variant, k As Byte, i As Integer, char As String
stroka = InputBox("vvedite text")
char = InputBox("Vvedite simvol")
 
ret = Split(stroka, char)
If UBound(ret) > 0 Then
MsgBox (char & " = " & UBound(ret))
Else
MsgBox ("Net takix")
End If
End Sub

Private Sub Command1_Click()
Dim stroka As Variant ,k As Byte, i As Integer, char As String
stroka = InputBox("введите текс")
char = InputBox("введите символ")
k = 0
For i = 1 To 254
If Mid(stroka, i, 1) = char Then k = k + 1 
Next i
Print "текст веденный с клавиатуры =   "; stroka
Print "символ веденный с клавиатуры = "; char
Print "всего сиволов веденных с клавиатуры = "; k
If k = 0 Then Print "Net takix";
End Sub

Private Sub Command1_Click()
Dim stroka As Variant ,k As Byte, i As Integer, char As String
stroka = InputBox("введите текс")
char = InputBox("введите символ")
k = 0
 
Dim a(254)
For i = 1 To 254
a(i) = Mid(stroka, i, 1)
If a(i) = Char Then k = k + 1
Next i
 
Print "текст веденный с клавиатуры = "; stroka
Print "символ веденный с клавиатуры = "; char
If k = 0 Then 
Print "Net takix";
Else
Print "всего сиволов веденных с клавиатуры = "; k
End If

stroka = "А роза упала на лапу азора"
char = "а"
 
ret = Split(stroka, "а", , vbTextCompare)