Function OpenFile()
On Error Resume Next
With Dialog
.DialogTitle = "Programmname"
.Filter = "Alle Dateien|*.*"
.FilterIndex = 1
.Flags = cdlOFNCreatePrompt Or _
cdlOFNLongNames Or _
cdlOFNExplorer
.CancelError = True
 
On Error Resume Next
.ShowOpen '** Dialogfeld anzeigen
If err = 0 Then ' Falls kein Fehler aufgetreten
ReadFile(.FileName)
Else
MsgBox "Fehler beim Öffnen aufgetreten oder abgebrochen!"
End If
End Function

.ShowOpen ' * Dialogfeld anzeigen