Text in Spalte / Trennzeichen

[diving_excel]

Hallo zusammen!
Mittels eines VBA Codes möchte ich in einer Spalte die als Text vorliegenden Zahlen in tatsächliche Zahlen umwandeln:

Code:

ThisWorkbook.Worksheets("TEST").Columns("J:J").TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

Dabei möchte ich dass eine Dezimalzahl immer mit dem Lokalen Trennzeichen umgewandelt wird. Wenn ich nichts definiere wandelt Excel mir bei diesem Code 23,99 in 23.99 um. Es wird also die Amerkikanische Umwandlung verwendet.

Ich dachte eigentlich dass ich den obrigen Code nur um ", Local:=True" ergänzen müsste, leider scheint das nicht zu gehen.

Wie kann ich meinen Code ergänzen, dass Excel bei der Umwandlung einer als Text vorliegenden Zahl das lokal eingestellte Trennzeichen nimmt? 

Danke und Gruß!

[diving_excel]

Habs lösen können:

der Code muss wie folgt erweitert werden 

Code:

, DecimalSeparator:=True

Trotzdem Danke! :)