Visual Basic - Añadir un espacio a cada caracter de una palabra

Hola, quiero realizar sobre un textbox una operación de forma que cada vez que introduzca una palabra, por ejemplo CASA, me agregue un espacio y el resultado sea C A S A. ¿sabe alguien cómo podría hacerlo?
Gracias

pal=""
for i=1 to len(palabra)
pal=pal & mid(palabra,i,1) & " "
next i
palabra=pal

checalo !