Visual Basic - función que cuente cuantas palabras tiene un texto

Dim x As Integer, WordCount As Integer, CharCount As Integer, Letter As String

Private Sub Form_Load()

wrdcnt = CountWords(Text1)

chrcnt = CountChars(Text1)

End Sub

Private Sub Command1_Click()

MsgBox CountWords(Text1) & " Word(s) | " & CountChars(Text1) & " Character(s)(excluding spaces)"

End Sub

Public Function CountWords(Data As String)

  On Error Resume Next

  WordCount = 0

For x = 1 To Len(Data)

  Letter = Mid(Data, x, 1)

  If Letter = " " Then

     WordCount = WordCount + 1

  End If

 Next x

 If Mid(Data, Len(Data), 1) = " " Then

        CountWords = WordCount

       Else

        CountWords = WordCount + 1

    End If

End Function

Public Function CountChars(Data As String)

 On Error Resume Next

CharCount = 0

For x = 1 To Len(Data)

  Letter = Mid(Data, x, 1)

  If Letter = " " Then

     Else

     CharCount = CharCount + 1

   End If

  Next x

  CountChars = CharCount

End Function

Private Sub Text1_Change()

wrdcnt = CountWords(Text1)

chrcnt = CountChars(Text1)

End Sub

Dim Texto As String

Dim Palabras As Integer

Texto = "Esto es un Ejemplo"

Palabras = Instr(Texto, " ")

MsgBox "Existen " & Format(Palabras + 1) & " en :  " & Texto