Function ShowOpen() As String
On Error GoTo Error_ShowOpen
 
    Dim OpenDlg As TOpenFileName
    strDateiname = String$(LEN_FILENAME_NORMAL, 0)
    With OpenDlg
 
       .lStructSize = Len(OpenDlg)
       .lpstrFilter = "Dbase-Dateien" & Chr$(0) & "*.DBF" 'SETZEN
       .nFilterIndex = 1
       .lpstrFile = strDateiname
       .nMaxFile = Len(strDateiname)
       .lpstrInitialDir = "D:\" ' SETZEN
       .lpstrTitle = "DBF-Datei Auswählen" ' SETZEN
       .lpstrDefExt = "*.*"
 
       If APT_GetOpenFileName(OpenDlg) <> 0 Then     ' Aufruf erfolgreich
             strDateiname = Left$(.lpstrFile, InStr(.lpstrFile, Chr$(0)) - 1) ' 
             ' restliche NUL-Werte abschneiden
             ShowOpen = strDateiname
       Else
         strDateiname = ""
         ShowOpen = ""
 
       End If
    End With
 
Exit_ShowOpen:
    Exit Function
Error_ShowOpen:
    MsgBox Err.Description, , "Exit_ShowOpen"
    Resume Exit_ShowOpen
End Function