Определить, сколько слов и цифр в тексте

Private Sub Form_Load()
    Dim D As Long, W As Long, S As String
    S = "дан текст. сколько слов в тексте? сколько цифр в тексте? В Visual Basic 6.0"
    W = NumWord(S)
    D = NumDigit(S)
    MsgBox "Количество слов: " & W & vbNewLine & "Количество цифр: " & D
End Sub
Private Function NumDigit(ByVal Value As String) As Long
    Dim P As Long, CurChar As String
    Value = Trim$(Value)
    For P = 1 To Len(Value)
        CurChar = Mid$(Value, P, 1)
        NumDigit = NumDigit - (CurChar >= "0" And CurChar <= "9")
    Next
End Function
Private Function NumWord(ByVal Value As String) As Long
    Dim P As Long, CurWord As String, CurChar As String
    Value = Trim$(Value)
    For P = 1 To Len(Value)
        CurChar = LCase(Mid$(Value, P, 1))
        If (CurChar >= "a" And CurChar <= "z") Or _
           (CurChar >= "а" And CurChar <= "я") Then
            CurWord = CurWord & CurChar
        Else
            NumWord = NumWord - (Len(CurWord) > 0)
            CurWord = vbNullString
        End If
    Next
End Function