Sub Число_16_Число_10()

    Dim Число_десятиричное As Long
    Число_десятиричное =  123 
    Dim Число_шестнадцатиричное As String
    Число_шестнадцатиричное = Hex$(Число_десятиричное)
    Debug.Print Число_шестнадцатиричное
    
    Dim Число_16_тиричное As String
    Число_16_тиричное = Число_шестнадцатиричное
    Dim Число_10_тиричное As Long
    Число_10_тиричное = CLng("&H" & Число_16_тиричное)
    Debug.Print Число_10_тиричное
    
End Sub