'Enter your code here. Read input from STDIN. Print output to STDOUT Imports system Module solution    Public Shared Sub Main        Dim n as integer        Dim s as String        Dim l as integer        Dim numbers as String = "0123456789"        Dim lower as String = "abcdefghijklmnopqrstuvwxyz"        Dim upper as String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"        Dim special as String = "!@#$%^&*()-+"       Dim i as integer        Dim r as integer        Dim num as boolean =false        Dim lo as boolean =false        Dim up as boolean =false        Dim Sp as boolean =false        n=Console.Readline()        s=Console.Readline().toString()        l=s.length()        If l<6 then            'r=6-l            For i=0 To l-1             If numbers.indexOf(s(i))>-1 then              num=true             Else If lower.indexOf(s(i).toString()) > -1 then                   lo=true             Else If upper.indexOf(s(i).toString()) > -1 then                        up=true             Else If special.indexOf(s(i))>-1 then                            Sp=true             End if                        Next If num=false then                  r=r+1              End if               If lo=false then                  r=r+1              End if                 If up=false then                  r=r+1              End if                   If Sp=false then                  r=r+1              End if               If (6-(l+r))>0 then               Console.writeLine(r+(6-(l+r)))               Else                            Console.writeLine(r)               End if        Else           For i=0 To l-1             If numbers.indexOf(s(i))>-1 then              num=true             Else If lower.indexOf(s(i).toString()) > -1 then                   lo=true             Else If upper.indexOf(s(i).toString()) > -1 then                        up=true             Else If special.indexOf(s(i))>-1 then                            Sp=true             End if                                Next                            'Console.writeLine(num & lo & up & Sp)                            If num=false then                  r=r+1              End if               If lo=false then                  r=r+1              End if                 If up=false then                  r=r+1              End if                   If Sp=false then                  r=r+1              End if                      Console.writeLine(r)        End if         ' Console.writeLine(r)        End Sub    End Module