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

  

con = 0

Sigo sin entender mucho estas cosas la verdad xD

--------EDITO--------

ya funciona perfecto!

este es el code

  

    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)

Podrías usar el evento TextChanged del textbox para que mientras escribas te cuente las palabras y letras tambien

Si hubiese un espacio al final de todo el texto se contaria como una palabra mas.
Hace un tiempo hice algo asi para sacar info de archivos de texto, es similar a lo que comento [D4N93R].

Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim palabras As Integer = 0
        Dim letras As Integer = 0
        Dim numeros As Integer = 0
 
        Dim lineas As String() = File.ReadAllLines("C:\1.txt")
        For Each linea As String In lineas
            For Each palabra As String In linea.Split(" ")
                If (palabra.Length > 0) Then
                    palabras = palabras + 1
                    For Each letra As Char In palabra.ToCharArray()
                        If (Asc(letra.ToString()) > 47 And Asc(letra.ToString()) < 58) Then
                            numeros = numeros + 1
                        ElseIf (Asc(letra.ToString()) > 64 And Asc(letra.ToString()) < 123) Then
                            letras = letras + 1
                        End If
                    Next
                End If
            Next
        Next
 
        Label1.Text = "Palabras: " & palabras & Microsoft.VisualBasic.vbNewLine & "Letras: " & letras & Microsoft.VisualBasic.vbNewLine & "Numeros: " & numeros
 
    End Sub
End Class

C# Regular Expression Recipes—Counting Lines of Text

Nueva version