Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim space As Integer
        Dim count As String


        Do space = InStr(TextBox1.Text, " ")
            Label1.Text = space
        Loop While
    End Sub
End Class