Для того, чтобы определить содержит ли строка любую из цифр от 0 до 9, причём без перебора символов в строке, достаточно использовать оператор Like, т.е. любой из двух нижеприведённых вариантов
iText$ = "Оператор Like используется для сравнения 2-x строковых выражений"
If iText$ Like "*[0-9]*" Then
MsgBox "В строке точно наличествует цифра"
Else
MsgBox "В строке нет ничего интересного"
End If
iText$ = "Оператор Like используется для сравнения 2-x строковых выражений"
If iText$ Like "*#*" Then
MsgBox "В строке точно наличествует цифра"
Else
MsgBox "В строке нет ничего интересного"
End If
Первый пример можно также использовать для поиска определённых цифр, например, в диапазоне от 2 до 5, для этого достаточно заменить 0-9 на 2-5 ' "*[2-5]*"