Visual Basic - Recorrer cadena

Hola que tal. Escribo para a ver si me podeis ayudar con el codigo. Necesito recorrer una cadena y escribr en la posicion 5. Ayudarme porfavor lo necesito

Gracias

Creo que debe ser una cosa así para recorrer la cadena
For n=1 to len(Cadena)
if n=5 then
lo que sea
endif
next

Para escribir en el lugar 5
cadena=mid(cadena,1,4)+lo que sea+mid(cadena,6,len(cadena))

Creo que hay una funcion para hacer lo mismo pero que ahora no recuerdo