Private Sub isRTL  (Text As String) As Boolean 
 Dim Jo As JavaObject ' = Me
 Jo.InitializeContext 
 Return Jo.RunMethod("isRtl",Array(Text))

#if java 
import java.lang.Character; 
public boolean isRtl (String text){ 
if (Character.getDirectionality(text.charAt(0)) == Character.DIRECTIONALITY_RIGHT_TO_LEFT 
    || Character.getDirectionality(text.charAt(0)) == Character.DIRECTIONALITY_RIGHT_TO_LEFT_ARABIC 
    || Character.getDirectionality(text.charAt(0)) == Character.DIRECTIONALITY_RIGHT_TO_LEFT_EMBEDDING 
    || Character.getDirectionality(text.charAt(0)) == Character.DIRECTIONALITY_RIGHT_TO_LEFT_OVERRIDE 
    ) { 
    return true; 
} 
return false; 
} 
#End If
End Sub

Log(isRTL("سلام"))