Imports System

Public Module Module1

    Public Sub Main()

        dim surname as string

        console.writeline("What's your last name?")

        surname= console.readline()

        do while surname.length > 20                                  'when using a length check on VB, write ".length" after the variable name

            console.writeline("surnames can't be that long")

            surname= console.readline()

        loop

    End Sub

End Module