La máscara que pusiste es en #, pero al momento en que tú corres el programa el contenido del Mask es _________, chécalo.
Entonces, para comprobar si faltan caracteres por introducir podrías hacer esto según lo que yo te decía:
Código:
Dim byCont As Byte
For byCont = 1 To Len(MaskEdBox1.Text) Step 1
If InStr(byCont, MaskEdBox1.Text, "_") Then
MsgBox "No se han introducido todos los caracteres"
Exit Sub
End If
Next byCont
Pero ahora que se que los caracteres son puros números, con la función IsNumeric te basta.