Bu da boşluk girildigini belirten kod. belki lazım olur sonra.

Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim i As Integer
For i = 1 To Len(TextBox1.Text)
TextBox2.Text = ""
If (Mid(TextBox1.Text, i, 1)) = " " Then
TextBox2.Text = "Boşluk"

End If
Next
End Sub
End Class