<font color=green>' Deklaration</font>
Private Declare Function OpenFileDLG Lib "vbex32.dll" Alias _
         "VBGETOPENFILEDLG" _
         (Byval sCaption As String, _
          sPtrFileName As String, _
          Byval sDirectory As String, _
          Byval sFilter As String, _
          Byval sExtension As String, _
          nPtrFlags As Long) As Long
 
Private Const OFNFILEMUSTEXIST As Long = &H800&

Private Function GetAFileName() As String
  Dim sFN As String
  Dim sCap As String
  Dim sFil As String
  Dim rVal As Long
 
  sCap = "Datei öffnen"
  sFN = Space(255)
  sFil = "*.* (Alle Dateien)|*.*"
 
  rVal = OpenFileDlg(sCap, sFN, "C:Eigene Dateien", sFil, _
    "", OFNFILEMUSTEXIST)
 
  If rVal > 0 Then GetAFileName = Trim(sFN)
End Function

Private Sub Command1_Click()
  Dim sFile As String
 
  sFile = GetAFileName()
  If sFile <> "" Then
    Shell sFile
  End If
End Sub