Lo que se puede hacer es pasar parámetros p.e.
ejecuta.exe par1 par2
mediante una rutina puedes recoger esos dos parámetros y tratarlos
'Esta función se encarga de pasar los parámetros del exe a un array
Function ObtenerLineaComando(Optional MaxArgs)
'Declara las variables.
Dim C, LineaComando, LonLinComando, ArgIn, i
'Ver si MaxArgs está.
If IsMissing(MaxArgs) Then MaxArgs = 10
'Crea una matriz del tamaño correcto.
ReDim ArgArray(MaxArgs)
NumArgs = 0: ArgIn = False
'Obtiene los argumentos de la línea de comandos.
LineaComando = Command()
LonLinComando = Len(LineaComando)
'Recorre la línea de comando carácter a carácter
'a la vez.
For i = 1 To LonLinComando
C = Mid(LineaComando, i, 1)
'Comprueba espacio o tabulación.
If (C <> " " And C <> vbTab) Then
'Ningún espacio o tabulación.
'Comprueba si está en el argumento.
If Not ArgIn Then
'Empieza el nuevo argumento.
'Comprueba para más argumentos.
If NumArgs = MaxArgs Then Exit For
NumArgs = NumArgs + 1
ArgIn = True
End If
'Agrega el carácter al argumento actual.
ArgArray(NumArgs) = ArgArray(NumArgs) + C
Else
'Encontró un espacio o tabulador.
'Establece ArgIn a False.
ArgIn = False
End If
Next i
'Redimensiona la matriz lo suficiente para contener los argumentos.
ReDim Preserve ArgArray(NumArgs)
'Devuelve la matriz en nombre de la función.
ObtenerLineaComando = ArgArray()
End Function
