Imports System

Public Module Module1

    Public Sub Main()

        dim x as string

        Console.WriteLine("Enter something")

        x = console.readline()

        if x.length = 6

            console.writeline("Valid")

        else 

            console.writeline("Invalid")

        end if

    End Sub

End Module