Private Sub Form_Load()
  Dim F As Integer
  Dim sDatum As String
 
  If Dir$(App.Path & "datum.txt") <> "" Then
    F = FreeFile
    Open App.Path & "datum.txt" For Input As #F
    Line Input #F, sDatum
    Text1.Text = sDatum
    Close #F
  End If
End Sub
 
Private Sub btn_berechnen_Click()
  Dim F As Integer
 
  Text1.Text = Format$(Now, "dd.mm.yy hh:nn:ss")
 
  Open App.Path & "datum.txt" For Output As #F
  Print #F, Text1.Text
  Close #F
End Sub