Private Type OPENFILENAME
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   lpstrFilter As String
   lpstrCustomFilter As String
   nMaxCustFilter As Long
   nFilterIndex As Long
   lpstrFile As String
   nMaxFile As Long
   lpstrFileTitle As String
   nMaxFileTitle As Long
   lpstrInitialDir As String
   lpstrTitle As String
   flags As Long
   nFileOffset As Integer
   nFileExtension As Integer
   lpstrDefExt As String
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
   pvReserved As Long
   dwReserved As Long
   FlagsEx As Long
End Type
 
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
                                    Alias "GetOpenFileNameA" _
                                    (lpOpenfilename As OPENFILENAME) As Long
 
Private Sub Command1_Click()
   Text1.Text = OpenLoad("", "txt Files (*.txt)", "Laden")
End Sub
 
Private Function OpenLoad(p As String, f As String, t As String) As String
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   OpenFile.lStructSize = Len(OpenFile)
   OpenFile.hwndOwner = Me.hWnd
   OpenFile.hInstance = App.hInstance
   OpenFile.lpstrFilter = f
   OpenFile.nFilterIndex = 0
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = p
   OpenFile.lpstrTitle = t
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      OpenLoad = ""
   Else
      OpenLoad = Trim(OpenFile.lpstrFile)
      lReturn = InStr(OpenLoad, Chr(0)) - 1
      OpenLoad = Left(OpenLoad, lReturn)
   End If
End Function