Imports System

Public Module Module1

    Public Sub Main()

        Dim mytext as string

        Dim wordcount as integer = 1

        Dim sentencecount as integer 

        Console.writeline("Enter some text: ")

        mytext= console.readline()

        Console.writeline("Your text is: " & mytext)

        Console.writeline("The total number of characters including spaces is : " & mytext.length)

        For Each character in mytext

​

        if character = " " then

            wordcount = wordcount +1

    End if 

    Next

    Console.writeline("The amount of words in your text are: " & wordcount)

​

    End Sub

End Module