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