WENN ein kleiner STRich FEHLT, DANN GROSS KAPUTT

Sub CreateTextFiles()
Const csMsg As String = " Die nicht " & _
" Arbeitsmappe " & _
"Erneut "
Dim iCounter As Interger
Dim sFile As String
On Error GoTo Errorhandler
For iCounter = 1 To 10
sFile = Format(iCounter, "0000")
sFile = CurDir & "\" & sFile & ".txt"
Open sFile For Output As #1
Print #1, " Datei Nummer " & iCounter
Close
Next iCounter
MsgBox prombt:=" Die wurden Angelegt" & vbLf & _
"Im Verzeichniss " & CurDir
Exit Sub
Errorhandler:
Close
MsgBox promt:=csMsg
End Sub