Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim myText as string

        dim sentencecount as integer = 0

        dim wordcount as integer = 1

        dim letters as integer 

        dim age as integer

        console.writeline("Enter some text: ")

        myText = console.readline()

        Console.Writeline("Your text is: " & myText)

        For each character in myText

            if character = " " then

                wordcount = wordcount + 1

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

                sentencecount = sentencecount + 1

            end if

        Next

        letters = mytext.Length

    age = 4.71 * (letters/wordcount) +0.5 * (wordcount/sentencecount) - 21.43

        Console.Writeline("The total characters in your text are: " & myText.length)

        Console.Writeline("The total amount of senstences in your text are: " & sentencecount)

​

    End Sub

End Module

​