Comprimir Cadena Ayuda Urgente!

[assdres]

Muchas Gracias!!!! Es lo que necesitaba. No tengo palabras para agradecerte. En serio, estoy muy contento con esta página y con la comunidad de programadores.

Tengo otra duda, aunque me da hasta pena; cuando voy a importar archivos, lo hago de la siguiente forma:

'Cadena de conexión
CnOrigen.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)}; DBQ=" & ruta & ";Persist Security Info=False"
'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
RsOrigen.Open "select * from [" & arch & "]", CnOrigen, adOpenStatic, adLockReadOnly, adCmdText

Set DataGrid1.DataSource = RsOrigen

Pero en algunos computadores me importa con comas (,) y en otros con punto y coma (;). Esto a que se debe y como lo podré solucionar??

Muchas gracias!!!