spejle et ord - fx 123 = 321...

Smid en Text1, en Text2 og en Command1 på din form. Kopier nedenstående kode. Skriv det ord du vil spejlvende i text1, og tryk på command1

Private Sub Command1_Click()

Dim MyString
Dim MyStringReversed
Dim MyStringArray()
Dim i As Integer

MyString = Text1.Text
ReDim MyStringArray(Len(MyString))

'Indlæser streng i Array
  For i = 1 To Len(MyString)
    MyStringArray(i - 1) = Mid(MyString, i, 1)
  Next i

'Opretter MyStringReversed
  MyStringReversed = ""
  For i = UBound(MyStringArray) To LBound(MyStringArray) Step -1
    MyStringReversed = MyStringReversed & MyStringArray(i)
  Next i
  Text2.Text = MyStringReversed
End Sub

Hvis det bare er en streng der skal vendes så...

StrReverse(Streng)

kjeld klit >> Det var for nemt - den kendte jeg ikke :o(

...derfor Eksperten! :-)

Jeg mangler desværre hjælp funktionen i min version (studie licens fra HTX) og jeg fatter ikke helt at bruge den online...
Tak for hjælpen alle sammen!