Module MyModule

    Sub Main()
        Dim name As String   ' A variable name of type string
        name = InputBox("Type your name")
        MsgBox("Hi, your name is " & name)
    End Sub

End Module