[jguardon]

GAMBAS

(Byte[].FromString(cadena)).Reverse().ToString()

Ahi hay 3 funciones que no sabia ni que existían, aun Gambas nos sorprende cada tanto con su poder

Maravilloso!! 

[tincho]

Hice este ejemplo, para verificar el código propuesto pero en el caso que intento adaptar Reverse2 no funciona adecuadamente, algo se me escapa.

GAMBAS

' Gambas class file
 
Public Sub Form_Open()
 
  Dim z As Integer
  Dim s As String
  Dim stx As New String[]
  Dim otx1 As New String[]
  Dim otx2 As New String[]
  Dim j As Integer
  Dim m As New Byte[]
 
  For i = 1 To 100
    For j = 0 To 15
      m.Add(Rand(33, 165))
    Next
    s = m.ToString()
    stx.Add(s)
    m.Clear
  Next
 
  otx1 = Reverse1(stx)
  otx2 = Reverse2(stx)
 
  If otx1.Count = stx.Count And otx2.Count = stx.Count Then
    For z = 0 To stx.Max
      Print stx[z]& ":" & otx1[z] & ":" & otx2[z]
Next
  Endif
 
  Me.Close
 
End
 
Public Sub Reverse2(stx As String[]) As String[]
 
  Dim otx As New String[]
  Dim s As String
  Dim r As New Byte[]
 
  For Each s In stx
    r.FromString(s)
    r.Reverse()
    otx.Add(r.ToString())
  Next
 
  Return otx
 
End
 
Public Sub Reverse1(stx As String[]) As String[]
 
  Dim otx As New String[]
  Dim s As String
 
  For Each s In stx
    otx.Add((Byte[].FromString(s)).Reverse().ToString())
  Next
  Return otx
End

[Shell]

Con el tercer método, me arden los ojos ....no es casual que sea el mas lento

Tendré que comprobar más el tiempo que tardan las funciones recursivas con la forma que me has enseñado y recordado.
Comenzaré creando una función de factorial.

Tengo que ver el de Tincho, que me lo perdí. 

Saludos