Option Explicit
 
Private Sub Command1_Click()
 
Dim Programm, txtHex, txtName, txtAdr, txtSign, txtPar As String
  Programm = "patcheur.exe"
    txtSign = " <"
        x = Shell("c:\" + Programm + txtHex + txtName + txtAdr + txtSign + _
          txtPar, vbhide)
 
End Sub

________________________________________________________________
Joerg

Amicus certus in re incerta cernitur.
Marcus Tullius Cicero