Código de Visual Basic para Aplicaciones - Funcion recursiva para girar una cadena

Public Function RReverse(aString As String) As String

	Dim L As Integer    'longitud de la cadena

	Dim M As Integer    'punto de corte

	L = Len(aString)

	If L <= 1 Then   'Final... ya no es necesario utilizar la recursividad

		RReverse = aString

	Else

		M = Int(L / 2)

		RReverse = RReverse(Right$(aString, L - M)) & RReverse(Left$(aString, M))

	End If

End Function