Private Sub Form_Load()
Dim a%, b%, c%, d%
'a+ab+abc+abcd=2001
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
If a + a * 10 + b + a * 100 + b * 10 + c + a * 1000 + b * 100 + c * 10 + d = 2001 Then msgbox a & b & c & d: Exit Sub
Next d
Next c
Next b
Next a
End Sub