十进制转换为十六进制：

Public Function DecHex(lngDecimal As Long)

    Dim lngQout As Long
    Dim strTmp As String
    Dim intTmp As Integer
    lngQout = lngDecimal
    Do Until lngQout = 0
        intTmp = lngQout Mod 16
        Select Case intTmp
        Case Is <= 9
            strTmp = intTmp & strTmp
        Case 10
            strTmp = "A" & strTmp
        Case 11
            strTmp = "B" & strTmp
        Case 12
            strTmp = "C" & strTmp
        Case 13
            strTmp = "D" & strTmp
        Case 14
            strTmp = "E" & strTmp
        Case 15
            strTmp = "F" & strTmp
        End Select
            
      lngQout = Int(lngQout / 16)
    Loop
    DecHex = strTmp

End Function

十六进制转换为十进制

Public Function HexDec(strHexadecimal As String)
    Dim intl As Integer
    Dim lngDecimal As Long
    Dim i As Integer
    Dim s As Integer
    
    intl = Len(strHexadecimal) 
    s = 0
    For i = intl To 1 Step -1
        SS = Mid(strHexadecimal, i, 1)
            
               Select Case SS    
                  Case 0
                        SS = SS
                    Case 1
                        SS = SS
                      Case 2
                        SS = SS
                    Case 3
                        SS = SS
                    Case 4
                        SS = SS
                    Case 5
                        SS = SS
                    Case 6
                        SS = SS
                    Case 7
                        SS = SS
                    Case 8
                        SS = SS
                    Case 9
                        SS = SS
                    Case "A"
                        SS = 10
                    Case "B"
                        SS = 11
                    Case "C"
                        SS = 12
                    Case "D"
                        SS = 13
                    Case "E"
                        SS = 14
                    Case "F"
                        SS = 15
                End Select
        lngDecimal = lngDecimal + SS * 16 ^ s
        s = s + 1
    Next
    HexDec = lngDecimal
End Function