Hebrew problems?

Sub Process_Globals
End Sub
Sub Globals
Dim lbl1,lbl2 As Label
Dim i As Int
Dim s,s1,s2 As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
  lbl1.Initialize("")
  activity.AddView(lbl1,10%x,10%y,80%x,10%y)
  lbl2.Initialize("")
  activity.AddView(lbl2,10%x,20%y,80%x,10%y)

  i=1234
  s1="test "
  s2="ניסוי "  '<<<=== some text in Hebrew
  s=s1 & i
  lbl1.Text=s
  s=s2 & i
  lbl2.Text=s
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub