Por que no crear un array de controles?
Código (vb) [Seleccionar]
dim i as integer
for i=1 to 10
if not lbl_d.caption=lbl_dni(i).caption then goto denei
next
denei:
MsgBox "DNI no registrado", vbExclamation, "Error"