RightToLeft never worked for me. But you can always manipulate it
.
Code:
Private Function RightToLeftText(Text As String) As String
Dim vArray As Variant
Dim iArray As Integer
Dim sArray As String
vArray = Split(Text, " ")
For iArray = 0 To UBound(vArray)
sArray = sArray & Chr(32) & StrReverse(vArray(iArray))
Next iArray
RightToLeftText = StrReverse(sArray)
End Function
Or is this the RightToLeft function you are looking for?
Code:
Private Function RightToLeftText2(Text As String) As String
Dim vArray As Variant
Dim iArray As Integer
Dim sArray As String
vArray = Split(Text, " ")
For iArray = 0 To UBound(vArray)
sArray = sArray & Chr(32) & vArray(iArray)
Next iArray
RightToLeftText2 = StrReverse(sArray)
End Function