Dim F As Integer 
Dim sDatum As String 
F = FreeFile 
If Dir$(App.Path & "datum.txt") <> "" Then 
  F = FreeFile 
  Open App.Path & "datum.txt" For Input As #F 
  Line Input #F, sDatum 
  txt_letzteberechnung.Text = sDatum 
  <font color=red>MsgBox sDatum</font>
  Close #F 
<font color=red>Else
  MsgBox "Datei nicht vorhanden!"</font>
End If