อยากทราบโค๊ต VB.net ที่เปลี่ยน เลขฐาน16(hex) ให้เป็น Ascii

Public Function Hex2Ascii2(ByVal HexText As String) As String

        Dim num, Value, TX, x As String
        TX = HexToStrr(x)
        For Y = 1 To Len(TX)
            num = Mid(TX, Y, 2)
            Value = Value & Chr(Val("&h" & num))
            Y = Y + 1
        Next Y
        Hex2Ascii2 = Value
    End Function