So rufen Sie das Fenster "Öffnen mit..." auf
    

ERFORDERLICHE OBJEKTE      

   1 CommandButton (Command1)
 FORM-CODE   

   Private Sub Command1_Click()
      'sinnvoll ist es, eine vorhandene Datei zu übergeben,
      'da das ausgewählte Programm diese Datei sonst nicht
      'finden kann
      Endung = "test.txt"
      Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & Endung
   End Sub