Como aporte, dejo la misma función, pero en *.vbs 
Saludos

Código (vb) [Seleccionar]
Texto = "foro.elhacker.net"
e = len(Texto)
For i = 1 to e
voltear = mid(Texto,e,1) & voltear
Next
Msgbox voltear
Saludos