Imports System

imports microsoft.visualbasic

Public Module Module1

    Public Sub Main()

    'TASK 2.3

        dim length,upcase,lowcase,i  as integer

        dim id as string

        id = console.readline()

        length = len(id)

        for i = 0 to 2

        If isnumeric(id) = false

            If id(i) = ucase(id(i))

            upcase= upcase + 1

            Else if id(i) = lcase(id(i))

                lowcase = lowcase + 1

            End if 

        End if

    Next i

​

    If upcase = 1  and lowcase= 2

        console.writeline ("Correct Format")

        Else if  upcase = 2  and lowcase =1

            console.writeline ("Correct Format")

        Else 

        Console.Writeline ("Incorrect Format")

    End If

    End Sub

End Module