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

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