Module Module1

    Sub Main()

        'W1 Q5 Length of name

        Dim name As String = InputBox("Enter a name")
        Dim length As Integer = name.Length
        MsgBox("There are " & length & " characters in your name")


    End Sub

End Module