Visual Basic - problema con funcion

quiero una funcion la cual le paso una linea de texto y me devuelva otra con ciertos caracteres cambiados

private function reemplazar(cadena as string) as string
dim texto as string
texto=replace(cadena,"1","A")
texto=replace(cadena,"2","E")
texto=replace(cadena,"3","I")
texto=replace(cadena,"4","O")
texto=replace(cadena,"5","U")
reemplazar=texto
end function

esta bien esto?

necesito hacer esto despues

print #1 , reemplazar("ghjas1kjsjkagk2wdwi3sas4n5")

sin embargo esto no resulta , me dan una mano !!

gracias a todos

private function reemplazar(cadena as string) as string
dim texto as string
cadena=replace(cadena,"1","A")
cadena=replace(cadena,"2","E")
cadena=replace(cadena,"3","I")
cadena=replace(cadena,"4","O")
cadena=replace(cadena,"5","U")
reemplazar=cadena
end function

Obtenias un texto reemplazando simpre la cadena original, con lo que prevalecia el ultimo texto, con esto es la cadena reemplazada la que se vuelve a reemplazar

si gracias Pedro , me di cuenta al ratito de mandar el mensaje gracias por tu ayuda