Public Checksum 'Variable für die Checksumme
 
Public Sub Chksum_save() 'Checksumme in Datei speichern
Dim Kanal As Integer
 
Kanal = FreeFile
Open "C:\" & "Checksum" & ".isd" For Output As #Kanal  'hier wird die Datei 
' geöffnet
Print #1, Checksum
 
Close #Kanal
 
End Sub
Public Sub Chksum_load() ' aus datei laden
Dim Kanal As Integer
 
Kanal = FreeFile
Open "C:\" & "Checksum" & ".isd" For Input As #Kanal  'hier wird die Datei 
' geöffnet
Input #Kanal, Checksum
 
Close #Kanal
End Sub
 
Public Function Chksum_make(Daten As String)
?????????????????
End Function

_______________________________________________________
Ihr da OHM macht doch WATT ihr VOLT!