RosettaCodeData/Task/Command-line-arguments/Visual-Basic/command-line-arguments.vb

Sub Main
    MsgBox Command$
End Sub