Voce quer passar parametros para o seu programa. Faca asssim
Private Sub Form_Load()
Dim sParametro as String
sParametro = Command$
End Sub
Basta pegar o sparametro e fazer um IF ou Case para fazer o que voce quizer.
select case spatametro
case "A"
..... ir para programa ....
case "b"
...... ir para o programa....
end select
