Перевести число из 16-ричной системы в 2 и 8 и 10 - VB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s As String
        Dim a, b
        a = HexToDec(TextBox1.Text)
        Do
            b = a Mod 2 '(или любая другая)
            a = a \ 2 '(или любая другая)
            If b >= 10 Then
                s = s & Chr(b + 55)
            Else
                s = s & b
            End If
        Loop Until a = 0
        TextBox2.Text = StrReverse(s)
    End Sub