Найти количество четырехзначных чисел, которые в 600 раз больше суммы своих цифр

Option Explicit
Const r = 90
Dim WithEvents cb As CommandButton, WithEvents lb As ListBox, i&, j&, d#
 
Private Sub cb_Click()
    Dim s$
    lb.Clear
    For i = 1000 To 9999
        d = 0
        For j = 1 To 4: d = d + Mid$(i, j, 1): Next
        
        
        
        
        
'        d = Fix(i / d)
       d = i / d ' Не округляем .....
       
       
       
       
        If d = 600 Then lb.AddItem i: s = s & vbLf & i
    Next
    lb.ToolTipText = "Результатов: " & lb.ListCount
    With Clipboard
        .Clear
        .SetText s
    End With
    
End Sub
 
Private Sub Form_Load()
    i = r: j = r
    Set lb = Controls.Add("vb.ListBox", "lb"): With lb
        .Move i, j, .Width * 2, .Height * 4: j = j + .Height + r
        .Visible = 1
    End With
    Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
        .Move i, j, .Width * 2
        .Caption = "Вычислить"
        .Visible = 1
    End With
End Sub

Option Explicit
Private Sub Command1_Click()
Dim x#, y#, z#, t#, k%
 For x = 0 To 9
  For y = 0 To 9
   For z = 0 To 9
    For t = 0 To 9
     If (1000 * x + 100 * y + 10 * z + t = 600 * (x + y + z + t)) Then
      k = k + 1
     Print k & ") x=" & x & "; y= " & y & "; z= " & z & "; t= " & t & "." & vbCr
    End If
   Next
  Next
 Next
Next
End Sub

Option Explicit
Private Sub Command1_Click()
Dim x#, y#, z#, t#, k%
 For x = 0 To 9
  For y = 0 To 9
   For z = 0 To 9
    For t = 0 To 9
     If (1000 * x + 100 * y + 10 * z + t = 250 * (x + y + z + t)) Then
      k = k + 1
     Print k & ") x=" & x & "; y= " & y & "; z= " & z & "; t= " & t & "." & vbCr
    End If
   Next
  Next
 Next
Next
End Sub

Option Explicit
 
Private Sub Form_Activate()
    Dim sum As Integer, A As Integer, i As Integer, Otvet As Integer
    For i = 1000 To 9999
        sum = 0: A = 1
        While A
            sum = sum + A Mod 10
            A = A \ 10
        Wend
 
     If i Mod sum * 600 = 0 Then Print i: Otvet = Otvet + 1
     Next
     Print "Всего   "; Otvet;
End Sub