Module Module1

    Sub Main()
        Dim s1 As String
        Dim a, b, c, d, e As Integer
        Console.WriteLine("Enter a String: ")
        s1 = Console.ReadLine()
        Do While Not (s1.Equals("All Done!"))
        Loop
        For i = 0 To s1.Length() - 1
            Select Case s1.Chars(i)
                Case "a"
                    a += 1
                Case "b"
                    b += 1
                Case "c"
                    c += 1
                Case "d"
                    d += 1
                Case "e"
                    e += 1

            End Select
            Console.WriteLine("The number of a's is: " & a)
            Console.WriteLine("The number of b's is: " & b)
            Console.WriteLine("The number of C's is: " & c)
            Console.WriteLine("The number of d's is: " & d)
            Console.WriteLine("The number of E's is: " & e)
            a = 0
            b = 0
            c = 0
            d = 0
            e = 0
        Next
        Console.WriteLine("Enter the next String: ")
    End Sub

End Module