Определить, сколько раз встречается цифра 5 в числе N

Private Sub Command1_Click()
Dim n As Double, col As Integer 'Объявляем переменные
col = 0 'Присваиваем переменной количества вхождений цифры 5 в число n значение равное 0
n = Text1.Text 'Присваиваем переменной n значение из текстового поля
Do While n <> 0 'Циклом проверяем условие цикл работает пока переменная n не равно нулю
    If n Mod 10 = 5 Then col = col + 1 ' Проверяем условие если остаток от деления числа n на 10 равен 5 увеличиваем переменную
    'хранящую количество вхождений цифры 5 в число n
    n = Int(n / 10) ' присваиваем переменной n новое значение равное целой части от деления числв n на 10
    
Loop
MsgBox "Число 5 встречается в цифре " & Text1.Text & " " & col & " раз"
 
End Sub

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
If Mid(Text1.Text, i, 1) = "5" Then col = col + 1
Next
MsgBox "Число 5 встречается в цифре " & Text1.Text & " " & col & " раз"
End Sub

MsgBox UBound(Filter(Split(StrConv("52342523555", vbUnicode), vbNullChar), "5")) + 1

MsgBox Len("52342523555") - Len(Replace("52342523555", "5", ""))