Way to keep data in an edit box when orientation changes?

Sub Activity_Resume
EditText1_message.Text = editstring
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   editstring = EditText1_message.Text
End Sub

'Activity module
Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.
   
   Dim UserText As String
End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.

   Dim EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)

   Activity.LoadLayout("MainActivity")
'   EditText1.Initialize("t1")
   EditText1.SingleLine = False
'   EditText1.Wrap = True

   If GetDeviceLayoutValues.Height < GetDeviceLayoutValues.Width Then
      EditText1.Width = 465dip
      EditText1.Height = 265dip
   Else
      EditText1.Width = 310dip
      EditText1.Height = 425dip
   End If

   EditText1.Text = "Hi Helen, You are awesome! How would you like my skeleton file sent, just attach here, Dropbox, or email? If email or Dropbox please private message me. If here be aware that others will be able to use your work. Basically I will send you a project that has the forms layed out with labels. All you have to do is go in there and add any kind of color, size them so the labels can be read by anyone, and make sure the events fire. If you wish you can add pictures but please make sure all controls have textual labels so screen readers can recognize them. So let me know how to get them to you and I will. I will need help doing this for all subsequent projects as well and not just this one, so it is only fair that you and anyone else who does this for me, get some kind of payment for your time. If I do attach here and there are multiple submissions from people, I will let everyone know which ones I have chosen."
   EditText1.SelectAll
   EditText1.RequestFocus

End Sub

Sub Activity_Resume

   EditText1.Text = UserText
   EditText1.RequestFocus
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)

   UserText = EditText1.Text

End Sub

EditText1.Text = "Hi Helen ..."
EditText1.SelectAll
EditText1.RequestFocus

If FirstTime = True then
UserText = "Hi Helen..."
End If