Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim mytext as string

        dim characterstotal as integer = 0

        dim words as integer

        dim sente as integer

        Console.WriteLine("Please enter some text.")

        mytext = Console.ReadLine()

        characterstotal = mytext.Length

        Console.WriteLine("your text is " & mytext)

        console.WriteLine("Your text is " & characterstotal & " characters long.")

        for each character in mytext

            if character = " " then

                words = words + 1

            end if

​

            if character = "." then

                sente = sente + 1

            end if

​

            if character = "?" then

                sente = sente + 1

            end if

​

            if character = "!" then

                sente = sente + 1

            end if

        next

​

        Console.Write("Your total of words is: ")

        console.WriteLine(words + 1)

        Console.Write("Your total of sentences is: ")

        console.WriteLine(sente + 1)

        Console.Write("Your level of writing skill out of five is: ")

        if characterstotal > = 10 then

            Console.WriteLine("1...")

        end if

​

        if characterstotal > = 30 then

            Console.WriteLine("2.")

        end if

​

        if characterstotal > = 70 then

            Console.WriteLine("3.")

        end if

​

        if characterstotal > = 100 then

            Console.WriteLine("4!")

        end if

​

        if characterstotal > = 150 then

            Console.WriteLine("5!?")

        end if

    End Sub

End Module

​