Visual basic 6

[waka2ebawer]

помогите решить задачку

ввести текст длиной до 254 символов в виде строки символов.Подсчитать сколько в строке символов, совпадающих с символом цифры,введеной с клавиатуры. Использовать функции для работы с данными символьного типа.результатом должно быть сообщение о найденном значении или об отсутствии значения...

[EducatedFool]

Sub main()
    txt = InputBox("Введите строку")
    char = InputBox("Введите символ")
    n = Len(txt) - Len(Replace(txt, char, ""))
    If n > 0 Then
        MsgBox "найдено " & n & " символов " & char
    Else
        MsgBox "символ " & char & " не найден в строке " & txt
    End If
End Sub