Private Sub Command1_Click()
Dim Bit() As String, A As Integer, B As Integer, C As Integer, D As Integer, E As Integer
Dim Total As String, Div11 As Long, SumaDig As Long
 
Bit = Split(StrConv("2010", vbUnicode), Chr(0))
For A = 0 To 1
For B = 0 To 1
For C = 2 To 3
For D = 2 To 3
    Total = Bit(A) & Bit(B) & Bit(C) & Bit(D)
    Div11 = Total / 11
    SumaDig = 0
    For E = 1 To Len(Div11)
        SumaDig = SumaDig + Val(Mid(Val(Div11), E, 1))
    Next
    ' Suma de digitos igual a 2
    If SumaDig = 2 Then
        List1.AddItem "Gen:> " & Total & " -Div11>" & Div11 & " -Suma>" & SumaDig
    End If
    DoEvents
Next: Next: Next: Next
MsgBox List1.ListCount
End Sub

For A = 0 To 3
For B = 0 To 3
For C = 0 To 3
For D = 0 To 3

 
Option Explicit
 
Private Sub Form_Load()
Dim ThisNumberNow       As Integer
Dim StrNumber           As String * 4
Dim IndexString         As Byte
Dim Suma                As Byte
 
    For ThisNumberNow = 1 To 9999
        If ThisNumberNow Mod 11 = 0 Then
            StrNumber = Format(ThisNumberNow, "0000")
            Suma = 0
            For IndexString = 1 To Len(StrNumber)
                Suma = Suma + Val(Mid(StrNumber, IndexString, 1))
            Next
            If Suma = 2 Then MsgBox StrNumber
        End If
    Next
 
End Sub
 
 

Private Sub Form_Load()
    Dim Div As Integer
    Dim Num As String
    Dim Suma As String
    Dim Bucle1 As Integer
    Dim Bucle2 As Integer
 
    Suma = ""
    Div = 2010 \ 11     'cant. de num divisibles por 11
    For Bucle1 = 1 To Div
        Num = 11 * Bucle1
        If Num > 999 Then   'preguntamos si es de 4 cifras
            For Bucle2 = 1 To Len(Num)
                Suma = Val(Suma) + Val(Mid(Num, Bucle2, 1)) 'suma de sus digitos
                If Suma = 2 Then
                    MsgBox Num
                End If
            Next
        End If
    Next
End Sub