Imports System

Public Module Module1

    Public Sub Main()

Dim password As String

        Dim letter As Integer = 0

        Dim number As Integer = 0

        Dim symbol As Integer = 0

        Dim upper As Integer = 0

​

        Console.WriteLine("enter your password:")

        password = Console.ReadLine()

​

        For i = 0 To (password.Count - 1)

            If Asc(password.Chars(i)) > 64 And Asc(password.Chars(i)) < 91 Then

                upper = upper + 1

            ElseIf Asc(password.Chars(i)) > 32 And Asc(password.Chars(i)) < 48 Then

                symbol = symbol + 1

​

​

​

            End If

            Next

        Console.WriteLine(" that has " & letter & " letters " & number & " numbers " & symbol & " symbols and " & upper & " upper case letters")

    End Sub

End Module