16进制的737F转化为2进制应该是多少？

0111001101111111
16进制数转为二进制需通过编程解决,以下给出VB的代码:
Option Explicit
Dim bl As String * 1
Dim ccl(7) As String
Dim ccll(7) As String
Dim bl_dm As String
Dim zt_dm1 As String
Dim i As Integer
Dim j As Integer
Dim bll As String

Private Sub Command1_Click()
bll = "737F"
Call hex_bin
End Sub

Public Function hex_bin()
For i = 1 To 4
ccl(i) = Mid(bll, i, 1)
Next i
For j = 1 To 4
bl = ccl(j)
If bl = "F" Then
bl_dm = "1111"
ElseIf bl = "E" Then
bl_dm = "1110"
ElseIf bl = "D" Then
bl_dm = "1101"
ElseIf bl = "C" Then
bl_dm = "1100"
ElseIf bl = "B" Then
bl_dm = "1011"
ElseIf bl = "A" Then
bl_dm = "1010"
ElseIf bl = "9" Then
bl_dm = "1001"
ElseIf bl = "8" Then<