Private Declare Function ShellExecute _
  Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hWnd As Long, _
  ByVal Operation As String, _
  ByVal Filename As String, _
  Optional ByVal Parameters As String, _
  Optional ByVal Directory As String, _
  Optional ByVal WindowStyle As Long = vbMinimizedFocus _
  ) As Long
 
Private Sub Command1_Click()
Dim übergabe As String
Dim name1 As String
Dim name2 As String
Dim x As Long
Dim Ver As String
 
Text1.Text = "c:\testspeichern"
 
name1 = "Aufnahme.wav"
name2 = "sample.mp3"
 
übergabe = "-f " & Text1.Text & "\" & name1 & " " & _
           Text1.Text & "\" & name2
 
Ver = App.Path & "\lame.exe"
' Achtung der Pfad muß so übergeben werden, sonst gehts nicht!!!
 
x = ShellExecute(0, "open", Ver, übergabe, vbNullString)
 
MsgBox x
End Sub