Помогите с процедурой, plz.

[Stager]

Помогите, пожалуйста, решить задачку:
Числа по основанию 4 и 16. Выполнить операцию умножения.
Вот у меня есть процедура, тока что дальше?
Я с этой процедурой ничего не смог сделать :'(
Процедура:

Public Function Cvt16to4(src As String) 
  Dim n As Long, i As Long, s As String, flg As Long 
        
  i = Val("&H" & src & "&") 
  s = "(4)" 
  n = (i And &H7FFFFFFF) ' Давим старший бит 
  flg = (i = n)          ' True, если бита не было 
  For i = 1 To 15 
    s = CStr(n And 3) & s 
    n = n \ 4 
  Next 
  If Not flg Then n = (n Or 2) 
  s = CStr(n And 3) & s 

  Cvt16to4 = s 
End Function

[Stager]

Мда не в тему написал.
Прога на VB.