inserir espaço em branco em uma linha

[Casabona 0]

Preciso de alguma função do VBScript que pega um numero e transforma em espaço ou seja numero 1 = " " numero 2 = " " e assim por diante, tenho esta função só preciso completar com esta duvida:

 

function completadados(campo, inicio, fim)

Dim campoc, total, certo

campoc = len(campo)

total = fim - inicio

certo = total - campoc

 

if campoc > total then

completadados = left(campoc, total)

else

completadados = campoc + função(certo)

end if

end function

[Ted k' 126]

usa o replace

 

replace(certo, "1", "")