Public Sub Main()
  <font color=green>' Parameter auslesen</font>
  Dim sParam() As String
  Dim sAppPath As String
  Dim sAppExeName As String
  Dim sAppPathNew As String
  Dim sTime As Long
 
  <font color=green>' Pausenzeit (in Sekunden)</font>
  Const Pause = 5
 
  If Command$ = "" Then
    MsgBox "Falscher Aufruf - Parameter erforderlich!"
  Else
    sParam = Split(Command$, ";")
 
    sAppPath = Left$(sParam(0), InStrRev(sParam(0), "\"))
    sAppExeName = Mid$(sParam(0), InStrRev(sParam(0), "\") + 1)
    sAppPathNew = sParam(1)
    If Right$(sAppPathNew, 1) <> "\" Then _
      sAppPathNew = sAppPathNew & "\"
 
    <font color=green>' Datei kopieren</font>
    FileCopy sAppPath & sAppExeName, sAppPathNew & sAppExeName
 
    <font color=green>' Pause machen</font>
    sTime = Timer
    Do
      DoEvents
    Loop Until Timer - sTime >= Pause
 
    <font color=green>' Alte anwendung löschen</font>
    Kill sAppPath & sAppExeName
 
    <font color=green>' Anwendung im neuen Verzeichnis aktivieren</font>
    Shell sAppPathNew & sAppExeName
  End If
End Sub

sParam = App.Path & "\" & App.EXEName & ";" & "C:programmeRichtigerPfad"
Shell "programm.exe " & sParam