求助计算机达人...VB的问题 急急急 谢谢了

设计一个窗体，添加三个文本框，一个命令按钮，在一个文本框中输入一个十进制正整数，另一文本框中输入要转换的进制数，点击按钮，在第三个文本框中显示转换结果 178184269@qq.com 谢谢

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入十进制数！"
Else

If Text2.Text = "16" Then
Text3.Text = Hex(CLng(Text1.Text))
Exit Sub
End If
If Text2.Text = "8" Then
Text3.Text = Oct(CLng(Text1.Text))
Exit Sub
End If
If Text2.Text = "2" Then
Text3.Text = DEC_to_BIn(CLng(Text1.Text))
Exit Sub
End If
MsgBox "只有二进制、八进制、十六进制，请确认才输入！" + Chr(13) + Chr(13) + "请输入数字即可！"
End If
End Sub
Public Function DEC_to_BIn(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

兄弟，不是不帮你啊？？你这有点专业啊！！

我是无能为力了！！