[VB6] Migrare da VBA di Excel a Visual Basic 6

[Magicolotto]

ho cercato di trasformarla cosi :

numero = 90
Indovinato = 0
For id = 7600 To datPrimaryRS.RecordCount
For cols = 2 To 51
If numero = cells(id, cols) Then
cells(id, cols).Interior.Color = vbYellow
Indovinato = Indovinato + 1
Else
If I = 5 Then
cells(id, cols).Interior.Color = vbRed
Else
End If
End If

Next cols
Next id

ma senza successo



volevo una mano