'Öffnen-Dialog
Public Function ShowOpenDlg(F As Form, strFilter As String, _
  strTitel As String, strInitDir As String) As String
 
  Dim lngOpenFileName As OPENFILENAME
  Dim lngAnt As Long
 
  With lngOpenFileName
    .lStructSize = Len(lngOpenFileName)
    .hwndOwner = F.hWnd
    .hInstance = App.hInstance
    If Right$(strFilter, 1) <> "|" Then strFilter = strFilter + "|"
 
    For lngAnt = 1 To Len(strFilter)
      If Mid$(strFilter, lngAnt, 1) = "|" Then
       Mid$(strFilter, lngAnt, 1) = Chr$(0)
      End If
    Next
 
    .lpstrFilter = strFilter
    .lpstrFile = Space$(254)
    .nMaxFile = 255
    .lpstrFileTitle = Space$(254)
    .nMaxFileTitle = 255
    .lpstrInitialDir = strInitDir
    .lpstrTitle = strTitel
    .flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
 
    ' Hier meine Änderung, die Do...Loop-Anweisung
    Do
      lngAnt = GetOpenFileName(lngOpenFileName)
      If (lngAnt) Then
        ' Hier wird der Dateiname an die Funktion übergeben (das könnte auch 
        ' später passieren,
        ' wenn es sich um die korrekte Dateiendung handelt)
        ShowOpenDlg = Trim$(.lpstrFile)
      Else
        ' Hier wird der Abbrechen-Button zugelassen
        Exit Do
      End If
    Loop Until (lngAnt) And Right$(Trim$(.lpstrFile), 4) = "pst" & Chr$(0)
  End With
End Function