Imports System

Public Module Module1

    Public Sub Main()

            Dim myText as string

            Dim total as integer

            Dim sentences as integer

            Dim words as integer = 1

​

         Console.WriteLine("Enter some text")

         myText = Console.ReadLine()

        For each character in myText

            Total = Total + 1

         If character = "." or character = "!" or character = "?" then

            sentences = sentences + 1

         End if

          If character = " " then

           words = words + 1

          End if

         Next

          Console.WriteLine(Total)

          Console.Writeline(sentences)

          Console.WriteLine(words)

    End Sub

End Module