Function GetSingleFile() As String
Dim pfad As String
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Application.DisplayAlerts = False
On Error Resume Next
pfad = UserForm1.TextBox1.Value
Application.DisplayAlerts = False
On Error GoTo ErrorHandler
GetSingleFile = ""
' File filters
Filter = "Text Files (*.LST),*.LST," & _
"All Files (*.*),*.*"
' Default Filter to *.*
FilterIndex = 1
' Set Dialog Caption
Title = "Bitte wähle die zu importierende Datei"
' Select Start Drive & Path
ChDrive ("C")
ChDir (pfad & "\Spielprotokolle")
If Err.Number <> 0 Then
UserForm1.Show
Err.Clear
End If
With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
' Reset Start Drive/Path
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
' Exit on Cancel
If Filename = False Then
'MsgBox "No file was selected."
Exit Function
Else
GetSingleFile = Filename
End If
End Function

Function nicht geht ? sondern nur zwischen sub...end 

Sub ?
kann mir jemand auf anhieb sagen wo da der wurm drin ist ?
danke
roland_k