Скласти рекурсивну процедуру без параметрів, що підраховує кількість цифр в тексті. Текст закінчується крапкою

Dim str As String 'проверяемая строка

Dim digits As Integer 'количество цифр в строке

Private Sub GetDigitsCount()

'если первый символ строки является цифрой, то прибавляем счетчик:

If IsNumeric(Left(str, 1)) Then digits = digits + 1

'обрезаем первый символ строки:

str = Mid(str, 2)

'если достигнут коне строки или точка, то завершаем процедуру

If str = "." Or str = "" Then

Exit Sub

Else 'иначе запускаем процедуру еще раз

Call GetDigitsCount

End If

End Sub