Italian EditText strano comportamento

Sub Activity_Pause (UserClosed As Boolean)
   strEdittext=EditText.text
End Sub

Sub Activity_Resume
   EditText.text=strEdittext
End Sub

'Activity module
Sub Process_Globals
   
End Sub

Sub Globals
   
    Dim EditText1 As EditText
      Dim testo As String 
   
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("1") 'un Layout con una sola EditText1

End Sub

Sub Activity_Resume
'se c'era qualcosa nella editText1, Pause l'ha salvata
If File.Exists(File.DirInternal,"stocco.txt") Then
   testo=(File.ReadString(File.DirInternal,"stocco.txt"))
   EditText1.Text=testo
Else
   testo=EditText1.Text 'devo comunque inizializzare qui la variabile 'testo'
End If

End Sub

Sub Activity_Pause (UserClosed As Boolean)
'salvo quello che c'è nella EditText1
testo=EditText1.text
File.WriteString(File.DirInternal, "stocco.txt", testo)

End Sub

Sub Process_Globals
    Dim strEdittext As String
End Sub

Sub Globals 
     Dim EditText1 As EditText    
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   If UserClosed Then
      strEdittext=""
   Else
      strEdittext=EditText1.text
   End If
 End Sub

Sub Activity_Resume
    EditText1.text=strEdittext
End Sub