Funcion de asp para llenar una cadena con un caracter X

[mc_quake]

function llena(palabra,caracter,cant,posicion)

'creamos cadena de caracteres repetidos a agregar
for 1 to cant
caracteres = caracteres&caracter
next

if posicion = 1 Then ' 1 agrega al final los caracteres
cadena = palabra&caracter
ElseIf posicion = 2 Then ' 2 agrega al inicio los caracteres
cadena = catarcer&palabra
End if

llena = cadena

end Function


y se llama asi

texto = "Hola"

response.write(llena(texto,"*",4,1))

esto mosgtraria por pantalla

Hola****

si el 1 lo cambias por 2 te mostraria

****Hola