跪求！！！用【字体】和【颜色】对话框设置文本框文字

Private Sub Command1_Click()
On Error GoTo err:
a = InputBox("请输入字体，如宋体、黑体", "字体设置")
Text1.FontName = a
a = InputBox("请输入字体大小，如20，30", "字体设置")
Text1.FontSize = a
a = InputBox("请输入字体是否粗体，如true，false", "字体设置")
Text1.FontBold = a
a = InputBox("请输入字体是否斜体，如true，false", "字体设置")
Text1.FontItalic = a
a = InputBox("请输入字体是否加中线，如true，false", "字体设置")
Text1.FontStrikethru = a
a = InputBox("请输入字体是否加下划线，如true，false", "字体设置")
Text1.FontUnderline = a
a = InputBox("请输入字体的颜色，如&H00，&HFF", "字体设置")
Text1.ForeColor = a
a = InputBox("请输入字体背景的颜色，如&H00，&HFF", "字体设置")
Text1.BackColor = a
Exit Sub
err:
MsgBox "输入数据错误！"
End Sub

Private Sub Form_Load()
Command1.Caption = "设置字体"
End Sub

你按对话框中的大写A、就可以叻、