Me acabo de fijar que Cambiando el Option Strict a Off "lo tenia en On no se porque"
Al usar este codigo de aca me da el resultado cada vez que doy click pero con 1 palabra menos :S
Sigo sin entender mucho estas cosas la verdad xD
--------EDITO--------
ya funciona perfecto!
este es el code
Al usar este codigo de aca me da el resultado cada vez que doy click pero con 1 palabra menos :S
Código (vbnet) [Seleccionar]
con = 0
Sigo sin entender mucho estas cosas la verdad xD
--------EDITO--------
ya funciona perfecto!

este es el code

Código (vbnet) [Seleccionar]
Dim con As Integer = 1
Dim i As Integer
Dim Cadena As String
con = 1
Cadena = TextBox1.Text
For i = 1 To Len(Cadena)
If Mid(Cadena, i, 1) = " " Then
con = con + 1
End If
Next
Label1.Text = CStr(con)