VB 十六进制转化为二进制

Function siliuTo2(ByVal su As String) As String
'16进制转换为2进制

For i = 1 To Len(su)
n = Mid(su, i, 1)
Select Case n
Case 0
siliuTo2 = siliuTo2 & "0000"
Case 1
siliuTo2 = siliuTo2 & "0001"
Case 2
siliuTo2 = siliuTo2 & "0010"
Case 3
siliuTo2 = siliuTo2 & "0011"
Case 4
siliuTo2 = siliuTo2 & "0100"
Case 5
siliuTo2 = siliuTo2 & "0101"
Case 6
siliuTo2 = siliuTo2 & "0110"
Case 7
siliuTo2 = siliuTo2 & "0111"
Case 8
siliuTo2 = siliuTo2 & "1000"
Case 9
siliuTo2 = siliuTo2 & "1