Реализовать нативную функцию дв.в.восьм - VBA

Формулировка задачи:

Доброго времени суток. Собственно по тз требуется реализовать нативную функцию Excel дв.в.восьм своими методами, не прибегая к oct() и прочим. Есть код, но т.к. уровень познаний у меня не самый высокий, не могу продвинуться дальше в решении задачи. Мысль заключается в выделении триад и в последующем преобразовывать их в восьм. число сравнивая с массивом. Но тут уже и начинаются проблемы. Помогите пожалуйста в решении.

Function dvosm(dvNum As String) As String
   Dim dvLen As String, i As Integer, j As Integer, k As Integer, x As Integer
   Dim vosNum As String
   Dim buff(0 To 2) As String
   Dim buffx As Integer
   Dim vosMas("000", "001", "010", "011", "100", "101", "110", "111") As String
j = 0
k = 2
 
dvLen = Len(dvNum)
'Нахождение триад и заполнения ими буфера
For i = dvLen To 1 Step -1
sled:
If k = -1 And i = 1 Then
      GoTo endf
      End If
 
  If Asc(Mid(dvNum, i, 1)) = 48 Or _
    Asc(Mid(dvNum, i, 1)) = 49 Then
    buff(k) = Mid(dvNum, i) 'буффер тоже заполняется с конца
    k = k - 1
      If k = 0 And i = 1 Then 'проверка на неполность буфф массива
        buff(0) = 0           'для дополнения нулями
        k = -1
      End If
      If k = 1 And i = 1 Then
        buff(0) = 0
        buff(1) = 0
        k = -1
      End If
      Do While k = -1 'переворачивает буфферный массив для правильной работы
         buffx = buff(2)
         buff(2) = buff(0)
         buff(0) = buffx
           For x = vosMas(0) To vosMas(8) 'сравнивает с массивом (тут-то и проблемы, но чую не только тут)
             If buff = vosMas(x) Then
               vosNum(j) = x
               j = j + 1
             End If
           Next x
      GoTo sled
      If k = -1 And i = 1 Then
      GoTo endf
      End If
  Else
    vosNum = "Ошибка"
    GoTo endf
  End If
Next i
endf:
  dvosm = vosNum
End Function

Решение задачи: «Реализовать нативную функцию дв.в.восьм»

textual
                            Листинг программы 
                        

                            Function Bin2Oct(ByVal sBin As String) As String
Const BIN3 = "000 001 010 011 100 101 110 111 "
Dim i&, j&
    'делаем длину строки кратной 3
  i = Len(sBin) Mod 3
  If i Then sBin = String$(3 - i, "0") & sBin
  
  For i = 1 To Len(sBin) - 2 Step 3
    j = InStr(BIN3, Mid$(sBin, i, 3) & " ")
    If j = 0 Then Err.Raise 5
    Bin2Oct = Bin2Oct & ChrW$(j \ 4 + 48)
  Next
End Function
                        