Pasar Txt a Excel con diferente separador de miles . O,

Tengo la siguiente macro que me transforma txt a excel

Al presionar el boon macro solicita ubicación de txt, selecciona y lo transforma

El txt es delimitado por espacios fijos, el problema es que genero el txt en distintos cpu

Lo cual el txt puede venir con separador de miles (.) o (,)  1.000  o 1,000

Como puedo decirle al código que cualquiera de los dos formatos quede en (.) 1.000 punto

Adjunto código

De antemano muchas gracias

Sub TRAERTXT()
Dim NombreArchivo As String
NombreArchivo = Application.GetOpenFilename()
Application.CutCopyMode = False
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & NombreArchivo, Destination:=Range( _
"$A$2"))
.Name = "ESDBS"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 10
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 3)
.TextFileFixedColumnWidths = Array(6, 22, 35, 9, 7, 22, 8, 8)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

End sub