Hai ragione quello che bisogna fare è inserire un controllo di fine riga. lo puoi fare con una variabileche registra l'indice del textbox "incriminato" ecco l'esempio:

codice:
Sub Controlla()
 Dim i, m As Integer 
 Dim IndexErr As Integer

IndexErr = -1
  For i = 0 To 10
   For m = 0 To 5
    If ((Text1(m + 4 * i)) <> "") and (Text1(m + 1 + 4 * i) <> "") then
    If Text1(m + 4 * i) = Text1(m + 1 + 4 * i) Then
     IndexErr = m + 1 + 4 * i
  End If    
Next
 If IndexErr > -1 then
  goto Err
  IndexErr = -1
 End if
  Next
Exit Sub

Err:
....
....
text1(IndexErr).setfocus
text1(IndexErr).text = ""

End Sub
Non la ho testata ma così dovrebbe funzionare,
fammi sapere
Alla prossima