Modificar un archivo .txt con una macro

[ponxxx]

Hola encontre este codigo que modifica un archivo .txt :

Sub prueba()

Dim intFich As Integer, lngNúmReg As Long, strCad As String * 1, n As Long

intFich = FreeFile(0)

Open "C:\Users\ran\Desktop\VALIDACION DOCUMENTACION\FILE_CGP.cgp" For Random As intFich Len = 1 'Sustituir por la ruta completa del fichero

For lngNúmReg = 1 To LOF(intFich)

Get intFich, lngNúmReg, strCad

If strCad = "," Then

LSet strCad = "-"

Put intFich, lngNúmReg, strCad

End If

Next lngNúmReg

Close intFich

End Sub

La funcion busca una , y lo reemplaza por ; ...necesito modificarlo para que busque en efecto una , pero lo remplace por 20 espacios en blanco, ya intente colocando en esta parte:

If strCad = "," Then

LSet strCad = " "

pero solo toma el primer espacio, es decir, reemplaza las comas solo por 1 espacio... alguien puede ayudarme??????

[Antoni]

Dim .............................., strCad As String * 20

LSet strCad = Space(20)