VB.NET中怎么将16进制数换成对应的ASCII，比如说&H1000，怎么把他换成31H,30H,30H,30H

VB.NET中怎么将16进制数换成对应的ASCII，比如说&H1000，怎么把他换成31H,30H,30H,30H

Public Function dec_to_hex(dec As Long) As String
Dim a As String
dec_to_hex = ""
Do While dec > 0
a = CStr(dec Mod 16)
Select Case a
Case "0": a = "30H"
Case "1": a = "31H"
Case "2": a = "32H"
Case "3": a = "33H"
Case "4": a = "34H"
Case "5": a = "35H"
Case "6": a = "36H"
Case "7": a = "37H"
Case "8": a = "38H"
Case "9": a = "30H"
Case "10": a = "65H"
Case "11": a = "66H"
Case "12": a = "67H"
Case "13": a = "68H"
Case "14": a = "69H"
Case "15": a = "70H"
End Select
dec_to_hex = a & " " & dec_to_hex
dec = dec \ 16
Loop
End Function追问我把&H1000代入，然后把结果相加得出121.，怎么自动把121变成C1的追答121是16进制还是10进制