Private Sub text_Save()
  Dim F As Integer
  Dim sPassword As String
 
  sPassword = "Irgendwas"
 
  F = FreeFIle
  Open "DeineDatei.dat" For Output As #F
  Print #F, EncodeString(Text1.Text, sPassword)
  Print #F, EncodeString(Text2.Text, sPassword)
  Print #F, EncodeString(Text3.Text, sPassword)
  Print #F, EncodeString(Text4.Text, sPassword)
  Close #F
End Sub

Private Sub text_Read()
  Dim F As Integer
  Dim sPassword As String
  Dim sText As String
 
  sPassword = "Irgendwas"
 
  If Dir("DeineDatei.dat") <> "" Then
    F = FreeFIle
    Open "DeineDatei.dat" For Input As #F
    Line Input #F, sText: Text1.Text = DecodeString(sText, sPassword)
    Line Input #F, sText: Text2.Text = DecodeString(sText, sPassword)
    Line Input #F, sText: Text3.Text = DecodeString(sText, sPassword)
    Line Input #F, sText: Text4.Text = DecodeString(sText, sPassword)
    Close #F
  End If
End Sub