Option Compare Database
Option Explicit
'--- המרה מ- אסקי לאנסי -----
Public Declare Function OemToChar Lib "user32.dll" Alias "OemToCharA" ( _
ByVal lpszSrc As String, _
ByVal lpszDst As String) As LongFunction Reverse_Heb(sData As String) As String
Dim sOutPut As String, sTMP$, ezr$
Dim Ret As Long
Dim i As Integer
sOutPut = Space(Len(sData))
Ret = OemToChar(sData, sOutPut) 'äîøä ì- ANSI
For i = 1 To Len(sOutPut)
ezr = Mid(sOutPut, i, 1)
Select Case Asc(ezr)
Case 32 'space
sTMP = ezr + sTMP + ezr
Case 48 To 57 'Numbers
sTMP = sTMP + ezr
Case 65 To 122 'English
sTMP = sTMP + ezr
Case 224 To 250 'Hebrow reverse
sTMP = ezr + sTMP
Case Else 'elegal chars
sTMP = sTMP + ezr u can drop this line
End Select
Next i
Reverse_Heb = sTMP
End Function