Sub ChangeMobi()
  Dim F As Integer
  Dim i As Long
  Dim Datensatz As MobileDat
  Dim nCount As Long
 
 On Error GoTo MainError
 
 
        F = FreeFile
 
        Close #F: Open HandyFileName For Random As #F Len = Len(Datensatz)
 
        Datensatz.PNummer = DecodeString(RTrim(txtPatNummer), "xxxx") 
        Datensatz.PGeburtstag = DecodeString(RTrim(txtPatGeburtstag), "xxxx")
        Datensatz.MobileNum = DecodeString(RTrim(txtMobNr), "xxxxx)
 
        Put #F, DSNummer, Datensatz
 
      Close #F
 
 
 
MainError:
 
If Err <> 0 Then MsgBox Err.Description
End Sub