DO Until loop -Problem

Habe ein Programm geschrieben, mit dem ich den Igor Plug auslese.
Nun habe ich das Problem, das ab und zu ein übertragungsfehler
auftritt. Habe mich entschieden daher jede Zelle 3 mal auszulesen.
Nun möchte ich die EEPROM Zelle so lange auslesen, bis das Resultat
auch wirklich no_error ist. Wer kann mir bitte den Code umwandeln????

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


Ich benütze VB 6 SP 6. Dankeschön im voraus