Para hacer eso será necesario declarar una función para abrir los archivos
Sub Abrir(Ruta As String)
'codigo
End Sub
Luego podrás saber la ruta del archivo abierto mediante
Command
Por ejemplo:
Private Sub Form_Load()
If Command <> "" Then
Abrir(Command)
End If
End Sub
Espero que te sirva
