Ayuda Invertir un nombre

[THEONEXX]

Hola me pueden ayudar no me acuerdo como es para invertir un nom,bre en vb 6.30 estoy bloqueado

[>> s E t H <<]

estas bloqueado??

a ver si me sale...
For e = 1 To Len(text1)
text2 = text2 & Mid(text2, Len(text1) - e + 1)
Next e


si esta bien es obra de dios xD, pero bueno... probalo y me decis


ahi lo arregle:

Código:

For e = 1 To Len(Text1)
Text2 = Text2 & Mid(Text1, Len(Text1) - e + 1, 1)
Next e