Fehlermeldung bei Daten extern speichern

Sub DatenExternSpeichern(Wks As Worksheet)
Dim vntTmp, R As Long, strTmp As String, iCols As Integer
iCols = Wks.Cells(3, 255).End(xlToLeft).Column
Open ThisWorkbook.Path & "\" & Wks.Name & ".txt" For Output As #1
With Wks
For R = 3 To .Cells(65536, 1).End(xlUp).Row
strTmp = ""
vntTmp = .Range(.Cells(R, 1), .Cells(R, iCols))
strTmp = Join(vntTmp, "|")
Print #1, strTmp
Next R
End With
Close #1
End Sub