В промежутке от A до B найти числа, в записи которых в двоичной системе ровно K единиц

Sub bb()
Dim a&, b&, k&, i&, j&, m&, n&, s$
a = 10: b = 20: k = 2
For i = a To b
    s = Oct(i)
    n = 0
    For j = 1 To Len(s)
        Select Case Mid$(s, j, 1)
        Case "1", "2", "4": n = n + 1
        Case "3", "5", "6": n = n + 2
        Case "7": n = n + 3
        End Select
    Next
    If n = k Then m = m + 1
Next
MsgBox m
End Sub

Sub bb()
Dim a&, b&, k&, i&, j&, m&, n&, s$
a = 10: b = 20: k = 2
For i = a To b
    s = Oct(i)
    n = 0
    For j = 1 To Len(s)
        Select Case CLng(Mid$(s, j, 1))
        Case 1, 2, 4: n = n + 1
        Case 3, 5, 6: n = n + 2
        Case 7: n = n + 3
        End Select
        If n > k Then GoTo nxt_num
    Next
    If n = k Then m = m + 1
nxt_num:
Next
MsgBox m
End Sub

Option Explicit
Dim a&, b&, minn&, maxx&, col& ':longint;
 
Sub proc(a)
Dim t&
t = 1: minn = 0: maxx = 0
While a > 0
  If (a Mod 2) = 1 Then
    minn = maxx: maxx = t
  End If
  a = a \ 2
  t = t + 1
Wend
If minn = 0 Then
  minn = maxx - 2: maxx = maxx - 1
End If
End Sub
 
Function func() As Long
Dim i&, res&
If minn < 1 Then
  func = 0
Else
  res = minn
  For i = maxx - 1 To 2 Step -1
    res = res + i - 1
    func = res
  Next
End If
End Function
 
Sub main()
a = 0: b = 1000000000
col = 0
 proc a - 1
 col = col - func()
 proc b
 col = col + func()
Debug.Print col
End Sub

Sub bb1()
Dim a&, b&, k&, i&, j&, m&, n&
    'a - начало диапазона
    'b - конец диапазона
    'k - число единиц в двоичном представлении
    'i - счетчик цикла от a до b
    'j - переменная для перевода i в двоичное
    'm - счетчик чисел
    'n - счетчик единиц
Dim t!: t = Timer
'a = 10: b = 20: k = 2
a = 0: b = 1000000: k = 2
For i = a To b
    j = i
    n = 0
    While j
        If j Mod 2 Then n = n + 1: If n > k Then GoTo nxt_num
        j = j \ 2
    Wend
    If n = k Then m = m + 1
nxt_num:
Next
Debug.Print m, Timer - t
End Sub

Option Explicit
Dim a, b, k, z, l, start, curPos, lastPos, statickNum As Double
Dim j As Double
Dim StartTimer As Double
Dim EndTimer As Double
 
Private Sub Command1_Click()
a = 10 'Ограничение снизу
b = 1500 'Ограничение сверху
k = 2  'Кол-во единиц требуется найти
l = 0
curPos = 0
StartTimer = Timer
 
For start = a To b
    statickNum = bin(start)
    j = statickNum
    l = 0
    curPos = 0
    While j
        curPos = curPos + 1
        If getMod(j, 10) = 1 Then
            l = l + 1
            If curPos <> Len(CStr(statickNum)) Then
                lastPos = curPos
            Else
            
            End If
        End If
        j = Int(j \ 10) 'Ошибка тут!!!!!!!!!!!!!!!!!!!!!!!!!!!
    Wend
Next start
EndTimer = Timer
 
Print "Execution time in seconds: ", EndTimer - StartTimer
End Sub

Sub test1()
Dim i&, t!
Debug.Print "число ед.", "кол-во чисел", "время, сек (P3-500)"
For i = 1 To 31 ' Step -1
    t = Timer
    Debug.Print i, Flaker(1000000000, 2147483647, i), Timer - t
        '2147483647 =2^31-1, макс. число типа Long
Next
End Sub