Проверка строки на наличие цифр

[Palomnik1096]

Добрый день, пытаюсь освоить vba, подскажите пжт как проверить строку на наличие цифр в ней

И еще пользователь вводит сторку в Input'e, как проверить эту строку, чтобы в ней было не менее 2-х цифр расположенных в любой последовательности, например пользователь ввел ФФФ2ФФФ3, как проверить эту строку на наличие цифр и чтобы их было не менее 2-х

[SAS888]

...как проверить эту строку на наличие цифр и чтобы их было не менее 2-х

Например, так:

If InputBox("Ввод") Like "*#*#*" Then MsgBox "Ввод правильный"

[alex77755]

Попробуй Like
Опередили пока писал

[Hugo121]

Вот пара-тройка функций, которые можно использовать - просто посчитать длину полученной строки:

Function GetNumeric(t As Range)
Dim j As Integer, l As String
For j = 1 To Len(t)
If IsNumeric(Mid(t, j, 1)) Then l = l & Mid(t, j, 1)
Next j
GetNumeric = Val(l)
End Function

Public Function ExtractNumber(S As String)
Dim i As Integer, str As String
For i = 1 To Len(S)
If InStr(1, "1234567890,", Mid(S, i, 1)) <> 0 Then str = str & Mid(S, i, 1)
Next
ExtractNumber = str
End Function

Function NumbersOnly(srcStr As String) As String
Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
        .Global = True
        .Pattern = "[^0-9,]" '"\D"
        NumbersOnly = .Replace(srcStr, vbNullString)
    End With
Set objRegEx = Nothing
End Function

Function Num(Текст As String) As Long
For n = 1 To Len(Текст)
If Mid(Текст, n, 1) Like "#" Then Num = Num & Mid(Текст, n, 1)
Next n
End Function