Visual Basic - CONTAR PALABRAS

'Variable Global

Dim c As Integer

'Al Crear la forma inicias tu contador en cero

Private Sub Form_Load()

c = 0

End Sub

'Este es tu Textbox,  en este caso yo lo llame text

'donde dice msg.caption se refiere al Label que puse para que me reflejara un mensaje de cuantas letras ó espacios tengo hasta el momento

Private Sub text_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then

    If text.text <> "" Then

        c = c - 1

    Else

        c = 0

    End If

Else

    c = c + 1

End If

msg.Caption = "Numero de Caracteres: " & c

End Sub

Private Sub Command1_Click()

 cuenta_palabras = Split(Text1, " ")

 MsgBox UBound(cuenta_palabras) + 1

End Sub

MsgBox Len(Text1)

'necesitas 2 textbox''''''''

Dim mitext As String

Dim conp, i As Integer

Private Sub Form_Load()

    mitext = "Hola: necesito hacer un pequeño programa que cuente palabras de un texbox en Visual Basic, de la misma forma en que las cuenta por ejemplo el Word. De antemano muchas gracias."

    Text1.Text = mitext

End Sub

Private Sub Command1_Click()

 For i = 1 To Len(Text1.Text)

        If Mid(Text1.Text, i, 1) = " " Then

            conp = conp + 1

        End If

    Next

    txtContador.Text = conp + 1

End Sub

'Es un ejemplo muy sencillo, si deseas algo mejor solo preguntas.....

option explicit

dim frase,i,contador

contador=0

frase=split(inputbox("dime una frase","frase"))

for each i in frase

contador=contador+len(i)

next

wscript.echo contador