Hola...
Yo he encontrado un codigo el cual busca y reemplaza un caracter en un texto, lo malo es que solo reemplaza el 1 caracter que hay..
Yo lo he adecuado para que busque y reemplaza todos los caracteres ( en este caso "comas"), lo unico que tenes que hacer es pasar el texto del Archivo.txt al texbox que para mi codigo se llama txtTexto...
Private Sub Command1_Click()
Dim original, busca, reemplaza, nueva As String
Dim long_original, long_busca, lugar_reemplaza As Integer
Dim Cont As Integer
For Cont = 1 To Len(txtTexto.Text)
original = Trim(txtTexto.Text)
busca = ","
reemplaza = ""
long_original = Len(original)
long_busca = Len(busca)
lugar_reemplaza = InStr(original, busca)
If lugar_reemplaza = 0 Then
txtTexto = nueva
Exit Sub
End If
nueva = Mid(original, 1, lugar_reemplaza - 1) & reemplaza
nueva = nueva & Mid(original, lugar_reemplaza + long_busca, long_original)
txtTexto = nueva
Next Cont
End Sub
espero te sirva....
Atentamente
JUAN MANUEL LOMBANA
MEDELLÍN - COLOMBIA