' MODUL !
' Start des Projekts aus dem Modul heraus (Sub Main)
' Start von extern:
' zum Beispiel:
' "C:\ihre.exe A,U"
 
 
Public cmdLine As Variant
Public newLines() As String


Sub Main()
    cmdLine = Command()
        If cmdLine <> "" Then
            newLines() = Split(cmdLine, ",", , vbBinaryCompare)
        Else
            ' keine Parameter übergeben
            End
        End If
    Select Case newLines(0)
        Case "A"
            ' jetzt mach was mit dem übergebenen Buchstaben
            MsgBox "A wurde übergeben"
        Case Else
            MsgBox "User hat was anderes angegeben"
    End Select
 
    Select Case newLines(1)
        ' wurde ein zweiter Parameter übergeben ?
        Case "U"
        ' und so weiter
        Form1.Show
    End Select
End Sub