Imports System

Public Module Module1

    Public Sub Main()

        Dim text As String

        Dim i As Integer

        Dim length As Integer

        Dim words As Integer

        COnsole.writeline("Enter text")

        text = Console.readline

​

        length = text.Length

        i = 0

  words = 0

  While (i < length)

    If text(i) = " " Then

      words = words + 1

      i = i + 1

      While text(i) = " "

        i = i + 1

      End While

    Else

      i = i + 1

    End If

​

  End While

​

        If words <> 0 then

            words = words + 1

        End if

​

        Console.writeline(words & " words in total.") 

    End Sub

End Module