Определить количество чисел в тексте

Sub Test2()
    
Dim c As Integer
Dim i As Integer
 
'ActiveWindow.ActivePane.View.ShowAll = True
 
 Dim r As Range
 
 
c = 0
For i = 1 To ActiveDocument.Words.Count
    Set r = ActiveDocument.Words(i)
    If r.Font.Hidden = True Then c = c + 1
Next i
 
 
MsgBox "Невидимых слов - " + Str(c)
MsgBox "Невидимых слов - " + Str(ActiveDocument.Words.Count)
End Sub

Sub Test1()
 
Dim c As Integer
Dim i As Integer
Dim r As Range
c = 0
 
For i = 1 To ActiveDocument.Words.Count
   Set r = ActiveDocument.Words(i)
      If r.Text = "один" Then c = c + 1
Next i
 
MsgBox "Числел в тексте: " & Str(c) & " из " & Str(ActiveDocument.Words.Count)
End Sub

Function kNum(ByVal txt As String) As Long
    Dim i As Long, w As String, m As String, k As Long
    txt = txt & " "
    For i = 1 To Len(txt)
        m = Mid$(txt, i, 1)
        If m Like "[0-9A-zА-яЁё]" Then
            w = w & m
        Else
            If IsNumeric(w) Then k = k + 1
            w = ""
        End If
    Next i
    kNum = k
End Function
 
Sub www()
    Dim txt As String
    txt = "Сколько получится если к 125 прибавить 569, затем вычесть 56, и все это умножить на 12? Должно получиться 7656."
    MsgBox "В тексте :" & vbLf & txt & vbLf & vbLf & "Содержится чисел - " & kNum(txt)
End Sub