Visual Basic - ejectar exe en red

tengo este codigo para ejecutar un exe en red :
Private Sub Command1_Click()
Dim strFic As String
Dim strParam As String

On Local Error Resume Next

strFic = "\\pc2\c\programa.exe"

Shell strFic & " " & strParam, vbNormalFocus

If Err Then
MsgBox "Se ha producido el siguiente error:" & vbCrLf & _
Err.Number & ", " & Err.Description & vbCrLf & _
"al intentar ejecutar:" & vbCrLf & _
strFic & " " & strParam
Else
MsgBox "Se está ejecutando: " & strFic & " " & strParam
End If
Err = 0

End Sub

pero tengo el problema de que se ejecuta en mi ordenador en vez de en el ordenador remoto ¿sabria alguien decirme que me falta en el codigo para que el programa se ejecute en el otro ordenador en vez de en el mio?
gracias

A mi parecer lo que pasa es que Shell ejecuta solo programas en tu máquina, tendrías que tener algún disparador para el otro Pc o alguna OCx que te manejara ejecuciones remotas.