Bueno, simplemente lo realize como un pequeño ejercicio y he decido traerlo porque me costo un "pelin"
(En VB6 no existe el tipo char, por lo que no era tan facil como pensaba.)
Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function
-Saludos-
HOLA!!!
Strev alternartivo otra opcion:
Public Function StrRev_Alter_7913(Expression As String) As String
Dim b() As Byte: b = Expression
If UBound(b) < 1 Then Exit Function
For x = UBound(b) - 1 To 0 Step -2
StrRev_Alter_7913 = StrRev_Alter_7913 & ChrW$(b(x))
Next
End Function
GRACIAS POR LEER!!!