Imports System

Public Module Module1

    Public Sub Main()

        dim n as string = console.ReadLine()

        if valid(n) = True then

            console.WriteLine(n.toupper())

        end if

​

    end sub

    public function valid(s as string) as integer

            dim test as boolean

        if s.Length >= 2 and s.Length <= 6 then 

                test = true

            else 

                test = false

            end if

            return test

        end function

​

End Module