slip 11

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim sentence As String

        Dim i As Integer

        Dim wc As Integer

        sentence = TextBox1.Text

        Dim arr() As Char = sentence.ToCharArray()

        For i = 0 To arr.Length - 1

            If arr(i) = " " Then

                wc = wc + 1

            End If

        Next

        MsgBox("Total Words " & wc + 1)

    End Sub

End Class