Imports System

Public Module Module1

    Public Sub Main()

        Dim text as String

        Dim numchar as Integer

        Dim numword as Integer = 1 

        Console.WriteLine("Enter Text Here:")

        text = Console.ReadLine()

        Console.WriteLine("Thank you for entering your text. What you've entered was " & text)

        numchar = text.length

        Console.WriteLine("The Number of Characters Entered Was : " & numchar )

        for each character in text

        If character = " " then

            numword = numword + 1

        End if

    Next

    Console.WriteLine("The Number of Words is : " & numword)

    End Sub

End Module