[VB6] Gestire errore all'interno di un ciclo

[Gumble]

come posso gestire un errore nel ciclo e poi passare al prossimo loop?

For Each y In myArr 'myArr contiene dei nomi di controlli
        q = q & ", " & frmMain.Controls(y).Text  'genera un errore se il controllo non c'é
Next

io voglio dirgli che se il campo non c'é, scrivi una stringa vuota e passa al prossimo.

 If Err.Number = 730 Then 'field not exists
        q = q & ", "
end if

come gestisco l'errore?

[mardok30]

Prova a fare un controllo direttamente nel ciclo sull'esistenza del controllo, una cosa del genere:
For Each y In myArr 'myArr contiene dei nomi di controlli
if not (frmMain.Controls(y) Is Nothing) Then
q = q & ", " & frmMain.Controls(y).Text 'genera un errore se il controllo non c'é
else
q = q & ", "
End if
Next

[Gumble]

Originariamente inviato da mardok30
Prova a fare un controllo direttamente nel ciclo sull'esistenza del controllo, una cosa del genere:
For Each y In myArr 'myArr contiene dei nomi di controlli
if not (frmMain.Controls(y) Is Nothing) Then
q = q & ", " & frmMain.Controls(y).Text 'genera un errore se il controllo non c'é
else
q = q & ", "
End if
Next

ho provato come dici... ma il controllo is nothing non funziona:

Public Function test()
    If frmMain.Controls("age_of_company") Is Nothing Then 'il problema é che si blocca subito perché non trova il controllo
        MsgBox "age_of_company does not exist"
    Else
        MsgBox "exists"
    End If
End Function

ho sbagliato qls? idee?