Files unsortiert einlesen

Sub SU_Open_File()
Dim sPath As String, sFile as string
Application.ScreenUpdating = False
sPath = "C:\PE-TMP\File-Nrn\"
sFile = Dir(sPath & "*.*")      ' 1. File wird eingelesen
Do While sFile <> ""
MsgBox sFile                ' Filename anzeigen
sFile = Dir()               ' nächstes File
Loop
Application.ScreenUpdating = False
End Sub