VBS Script zur Auswahl von Firmennummer und Benutzernummer sowie Verarbeitung

Dim Firma
Dim strProgram
Dim objShortcut
Dim objShell
Dim User

Firma = inputbox("Geben sie die Firmenbezeichnung ein " & vbnewline & vbnewline & "1 = bbb" & vbnewline & "2 = kg","Desktop Link - Fenstertitel")  


if Firma ="" then  
WScript.Quit
end if

if isnumeric(Firma) = false then
msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis"  
WScript.Quit
else
end if

if Firma > 2 or Firma = 0 then
msgbox "Bitte nur 1 oder 2 eingeben",16,"Hinweis"  
WScript.Quit
else
end if
-------------------------------------------------------------------------------------------------------------------------

' Abfrage Benutzer  

User = inputbox("Geben sie die Benutzernummer ein " & vbnewline & vbnewline & "1 = Max  Muster" & vbnewline & "2 = Test Testermann" ,"Desktop Link Script")  

-------------------------------------------------------------------------------------------------------------------------

Hier beginnen meine Probleme.
Es soll nun der gewählte Benutzer als Bestätigung mit dem msgbox Befehl ausgegeben werden.
Dies sollte mit einer Schleife passieren,doch ich weiß nicht wie,da die Benutzer selber ja nicht definiert sind.
Danach soll die Verarbeitung erfolgen:
Es müssen also alle mögliche Firma / User kombinationen die möglich sind abgefragt werden und dann jeweils anders weiterverarbeitet werden.

-------------------------------------------------------------------------------------------------------------------------

if user = 1 and Firma = 1 then 

strProgram ="c:\LCS\verdi Claus bbb.vbs"  
Const strProgramtitel = "Verdi - Name Firma 1"  
Set WshShell = Wscript.CreateObject("Wscript.Shell")  
Set fso = CreateObject("Scripting.FileSystemObject")  
fso.CopyFile "PFAD zur Datei" , "C:\lcs\" ' Script kopieren  
shortcutwrite
end if
-----------------------------------------------------------------------------------------------------------------------
Die eigentliche Verarbeitung funktioniert -   sub shortcutwrite()

sub shortcutwrite()

Const strWPath = "c:\LCS\"				 'Arbeitsverzeichnis  
Set objShell = WScript.CreateObject("Wscript.Shell")  
strLPfad = objShell.SpecialFolders("Desktop")  
Set objShortcut = objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")  
objShortcut.TargetPath = strProgram
objShortcut.Description = strProgramtitel
objShortcut.WorkingDirectory = strWPath
objShortcut.IconLocation = "c:\lcs\verdi\lcsverdi.exe,0"  
objShortcut.Save

end sub