Dim TByte4 As Byte, result4 As Long
result4 = DoEEPROMRead(3, TByte4)
If result4 = NO_ERROR Then
  data4.Text = CStr(TByte4)
Else
  ' Zweite abfrage
  Dim TByte94 As Byte, result94 As Long
  result94 = DoEEPROMRead(3, TByte94)
  If result94 = NO_ERROR Then
    data4.Text = CStr(TByte94)
  Else
    ' 'dritte abfrage
    Dim TByte940 As Byte, result940 As Long
    result940 = DoEEPROMRead(3, TByte940)
    If result940 = NO_ERROR Then
      data4.Text = CStr(TByte940)
    Else
      MsgBox "Fehler beim EEPROM lesen aufgetreten!!!", vbExclamation
      End
    End If
  End If ' Zeites abfrage IF schliesen
End If ' Erstes Abfrage if schliesen