Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
ReverseText
Hierbei handelt es sich um eine kleine Spielerei, die einen Text umkehrt. Das
Besondere an der Funktion ist der rekursive Aufruf.
Option Explicit
Public Function ReverseText(Text As String) As String
On Error Goto errorhandler
If Text = "" Then Exit Function
ReverseText = Right(Text, 1) & ReverseText(Left(Text, Len(Text) - 1))
Exit Function
errorhandler:
MsgBox Err.Description, vbExclamation
End Function
© 2001 -
by Thomas Risi