Private Sub Form_Load()
    Command1.Caption = "&Play"
    Command2.Caption = "&Stop"
     Dim sPath As String
    sPath = App.Path
    If Right(sPath, 1) <> "" Then spaht = sPath & ""
    Call ExtractMidifile(sPath & "test_resource.mid")
    Exit Sub <-------------- hier nämlich
     ' Text, der in der Textbox angezeigt werden soll
  Set cData = New Collection
 
  cData.Add "Hallo"
  cData.Add "mir"
  cData.Add "geht"
  cData.Add "es"
  cData.Add "gut"
 
  nIndex = 0
    End Sub

spaht