Перевести число из 16-ричной в двоичную систему - VB

Text3.Text = ""
        For i = 1 To Len(Text1.Text)
            If Mid(Text1.Text, i, 1) = "0" Then
                Text3.Text = Text3.Text & "0000"
            End If
            If Mid(Text1.Text, i, 1) = "1" Then
                Text3.Text = Text3.Text & "0001"
            End If
            If Mid(Text1.Text, i, 1) = "2" Then
                Text3.Text = Text3.Text & "0010"
            End If
            If Mid(Text1.Text, i, 1) = "3" Then
                Text3.Text = Text3.Text & "0011"
            End If
            If Mid(Text1.Text, i, 1) = "4" Then
                Text3.Text = Text3.Text & "0100"
            End If
            If Mid(Text1.Text, i, 1) = "5" Then
                Text3.Text = Text3.Text & "0101"
            End If
            If Mid(Text1.Text, i, 1) = "6" Then
                Text3.Text = Text3.Text & "0110"
            End If
            If Mid(Text1.Text, i, 1) = "7" Then
                Text3.Text = Text3.Text & "0111"
            End If
            If Mid(Text1.Text, i, 1) = "8" Then
                Text3.Text = Text3.Text & "1000"
            End If
            If Mid(Text1.Text, i, 1) = "9" Then
                Text3.Text = Text3.Text & "1001"
            End If
            If Mid(Text1.Text, i, 1) = "A" Then
                Text3.Text = Text3.Text & "1010"
            End If
            If Mid(Text1.Text, i, 1) = "B" Then
                Text3.Text = Text3.Text & "1011"
            End If
            If Mid(Text1.Text, i, 1) = "C" Then
                Text3.Text = Text3.Text & "1100"
            End If
            If Mid(Text1.Text, i, 1) = "D" Then
                Text3.Text = Text3.Text & "1101"
            End If
            If Mid(Text1.Text, i, 1) = "E" Then
                Text3.Text = Text3.Text & "1110"
            End If
            If Mid(Text1.Text, i, 1) = "F" Then
                Text3.Text = Text3.Text & "1111"
            End If
        Next