Makro schreibt Kommas im String als Punkte

Sub Daten_einlesen()
Worksheets("Daten").Select
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String, Path As String
MsgBox "Lese Datein ein aus: " & ActiveWorkbook.Path
' "Brenndaur Zyl1-4.txt" einlesen
sFile = ActiveWorkbook.Path & "\Brenndauer Zyl1-4.txt"
If Dir(sFile) = "" Then
Beep
MsgBox "''Brenndauer Zyl1-4.txt'' wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 2
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
'MsgBox "Bereich 1: " & sTxt
Do While InStr(sTxt, vbTab)
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, vbTab) - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, vbTab))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 2
'If iRow = 20 Then
'         Exit Sub
'End If
Loop
Close
End Sub