Дана фраза. Определить имеются ли в ней числа, состоящие из одной цифры.

Private Sub TEST()
    Dim s$, v, v1, f&
    s = "В 1 ящике 20 яблок."
    
    v = Split(s)
    For f = 0 To 9
        v1 = Filter(v, CStr(f))
        If Join(v1) <> "" Then
            'Отображение чисел отдельно
            Debug.Print Join(v1)
        End If
    Next
End Sub

Dim s As String
Dim s1 As String
Private Sub Command1_Click()
s = InputBox(Val(s)) '( "S-", "Ввод фразы")
s1 = (1234567890)
s = Len(s)
For i = 1 To l
s1 = Mid(s, i, 9)
If Mid(s, 1, 1) = Mid(s1, 9, 1)
 
K = K + 1
  End If
  End If
  Print "K=", K
Next j
Next i
End Sub

Sub Main()
Dim strTemp As String, arrTemp() As String, i As Integer
strTemp = Trim(InputBox("Фраза:"))
If Len(strTemp) > 0 Then
    arrTemp = Split(strTemp): strTemp = vbNullString
    For i = 0 To UBound(arrTemp)
        If Len(arrTemp(i)) = 1 Then If IsNumeric(arrTemp(i)) Then strTemp = strTemp & arrTemp(i) & vbNewLine
    Next
    If Len(strTemp) > 0 Then
        MsgBox "Найдено:" & vbNewLine & strTemp
    Else
        MsgBox "Ничего подходящего не найдено."
    End If
End If
End Sub

Private Sub Command1_Click()
    Dim s As String
    Dim s1 As String, i, l, k
    
    s = InputBox(Val(s)) '( "S-", "Ввод фразы")
    s1 = (1234567890)
    l = Len(s)
    For i = 1 To l
       s1 = Mid(s, i, 9)
        If Mid(s, 1, 1) = Mid(s1, 9, 1) Then
       
           k = k + 1
        End If
   
        Debug.Print "K=", k
   
    Next i
End Sub

Private Sub Command1_Click()
    Dim i As Integer, S As String, t As Integer
    S = InputBox("Введите фразу", "Ввод данных", "В 10-м  ящике яблок 72, а груш - 8.")
    For i = 0 To UBound(Split(S))
        t = Val(Split(S)(i))
        If t > 0 And t <= 9 Then MsgBox "Yes": Exit Sub
    Next i
    MsgBox "No"
End Sub

Private Sub Command1_Click()
    Dim i As Integer, S As String, t As Integer
    S = " " & InputBox("Ââåäèòå ôðàçó", "Ââîä äàííûõ", "Â 10-ì  ÿùèêå ÿáëîê 72, à ãðóø - 8.") & " "
    For i = 2 To Len(S) - 1
      If IsNumeric(Mid$(S, i, 1)) And Not (IsNumeric(Mid$(S, i - 1, 1)) Or IsNumeric(Mid$(S, i + 1, 1))) Then MsgBox "Yes: " & Mid$(S, i, 1): Exit Sub
    Next
    MsgBox "No"
End Sub

Sub Main()
Dim strTemp As String, arrTemp() As String, i As Integer, j As Integer
Dim strDelims As String, arrDelims() As String
Dim strDigDelim As String, strPlainDelim As String
 
If IsNumeric("1,") Then
    strDigDelim = ",": strPlainDelim = "."
Else
    strDigDelim = ".": strPlainDelim = ","
End If
strDelims = strPlainDelim & " : ; ! ? - ( ) < > [ ] { } + - = % ^ / \ | """ 'можно что-то добавить или удалить
arrDelims = Split(strDelims)
strTemp = Trim(InputBox("Фраза:", , "В 10-м ящике яблок 72, а груш 4,2 десятка."))
If Len(strTemp) > 0 Then
    arrTemp = Split(strTemp)
    For i = 0 To UBound(arrTemp)
        If IsNumeric(arrTemp(i)) Then
            If Len(arrTemp(i)) > 1 Then
                arrTemp(i) = Replace(Replace(Replace(arrTemp(i), "+", ""), "-", ""), strDigDelim, "")
            End If
        Else
            strTemp = Replace(arrTemp(i), strPlainDelim, strDigDelim)
            If IsNumeric(strTemp) Then
                arrTemp(i) = Replace(strTemp, strDigDelim, "")
            Else
                For j = 0 To UBound(arrDelims)
                    strTemp = Replace(strTemp, arrDelims(j), " ")
                Next
                arrTemp(i) = strTemp
            End If
        End If
    Next
    arrTemp = Split(Join(arrTemp, " ")): strTemp = vbNullString
    For i = 0 To UBound(arrTemp)
        If IsNumeric(arrTemp(i)) Then If Len(arrTemp(i)) = 1 Then strTemp = strTemp & arrTemp(i) & vbNewLine
    Next
    If Len(strTemp) > 0 Then
        MsgBox "Найдено:" & vbNewLine & strTemp
    Else
        MsgBox "Ничего подходящего не найдено."
    End If
End If
End Sub

Private Sub Command1_Click()
Dim t As Boolean
s = " " & InputBox("", , "В 10-м  ящике яблок 72, а груш - 8.") & "  "
For i = 1 To Len(s) - 2
t = Mid(s, i, 3) Like "[!0-9]#[!0-9]"
If t Then Exit For
Next
MsgBox t
End Sub

MsgBox " " & InputBox("", , "В 10-м  ящике яблок 72, а груш - 8.") & "  " Like "*[!0-9]#[!0-9]*"