CSV Import, springt auf falsches Tabellenblatt

Public Sub CommandButton1_Click()
Dim str_QuelleRufnummernanreicherung As String
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'Blattschutz aufheben
Dim i As Integer
With ThisWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).Unprotect Password:=""
Next i
End With
Dim filename As Variant
Dim Sep As String
ChDrive ("G:\")
str_QuelleRufnummernanreicherung = ThisWorkbook.Sheets("Anpassung Pfade").TextBox1.Value
On Error GoTo ErrorHandler
ChDir str_QuelleRufnummernanreicherung
GoTo NoError
ErrorHandler:
MsgBox "Es ist ein Fehler aufgetreten. Springe deshalb auf das Standard-verzeichnis"
ChDir "G:\Beispiel\Beispiel\"
Resume Next
NoError:
filename = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If filename = False Then
Exit Sub
End If
Sep = ";"
If Sep = vbNullString Then
Exit Sub
End If
ThisWorkbook.Sheets("01_Import RufNr").Range("M4").Value = filename
Debug.Print "FileName: " & filename, "Separator: " & Sep
ImportTextFile FName:=CStr(filename), Sep:=CStr(Sep)
Call ThisWorkbook.Sheets("01_Import RufNr").Range("A1:I5000").Replace(Chr(34), "")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Private Sub ImportTextFile(FName As String, Sep As String)
ThisWorkbook.Sheets("01_Import RufNr").Range("A1:I500").ClearContents
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Application.ScreenUpdating = False
SaveColNdx = Cells(1, 1).Column
RowNdx = Cells(1, 1).Row
Open FName For Input Access Read As #1
While Not EOF(1)
Line Input #1, WholeLine
If Right(WholeLine, 1)  Sep Then
WholeLine = WholeLine & Sep
End If
ColNdx = SaveColNdx
pos = 1
NextPos = InStr(pos, WholeLine, Sep)
While NextPos >= 1
TempVal = Mid(WholeLine, pos, NextPos - pos)
Cells(RowNdx, ColNdx).Value = TempVal
pos = NextPos + 1
ColNdx = ColNdx + 1
NextPos = InStr(pos, WholeLine, Sep)
Wend
RowNdx = RowNdx + 1
Wend
EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
End Sub