Guest User

Untitled

a guest
Aug 10th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function Opacne(Retezec As String) As String
  2.     Opacne = ""
  3.     Delka_Retezce = Len(Retezec)
  4.        For I = Delka_Retezce To 1 Step -1
  5.           Opacne = Opacne & Mid(Retezec, I, 1)
  6.     Next I
  7. End Function
Add Comment
Please, Sign In to add comment