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