Ascii File Import Malfunctioning

I am importing multiple ascii files into one workbook, each file into a single sheet of the workbook. When I manually import an ascii file, everything works and formats fine. When I import the file or files with my macro, the formatting of the values in the ascii file isnt working correctly, that is, if a value is for instance 51,442 (, being the decimal seperator), it is input to the cell as 51,442, as in fifty one thousand, four hundred forty two..My import function is below, and I have tried various combinations of using the decimal seperator command and thousands seperator command, all to no avail..

Lastly, in case it matters, this is on a PC with regional settings set to Germany as well.

Below an example of the import which I found online earlier..

x = 1
Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen(x))
wkbTemp.Sheets(1).Copy
Set wkbAll = ActiveWorkbook
wkbTemp.Close (False)
wkbAll.Worksheets(x).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=False, DecimalSeparator:=","
x = x + 1