Prova questo:

codice:
Public Sub Main()
    For Each s As String In My.Application.CommandLineArgs
        MessageBox.Show(s)
    Next
End Sub