VB按钮弹出输入对话框

我在vb里面做了一个Command1按钮，我想单击这个按钮，会弹出一个对话框，上面显示机器码“123456789”，注册码“”，然后判断我们输入的注册码，如果一样，那就成功登入，谢谢各位了。。。。满意着加10分。

Private Sub Command1_Click()

Dim sn As String
MsgBox "机器码是：12345678"
sn = InputBox("验证", "")
If sn = "12345678" Then
MsgBox sn
End If
End Sub

要么这样 要么楼上这样

MsgBox 函数
请参阅
InputBox 函数
要求
版本 1
在对话框中显示消息，等待用户单击按钮，并返回一个值指示用户单击的按钮。

MsgBox(prompt[, buttons][, title][, helpfile, context])
参数
prompt
作为消息显示在对话框中的字符串表达式。prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在各行之间用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符的组合 (Chr(13) & Chr(10)) 分隔各行。
Buttons
数值表达式，是表示指定显示按钮的数目和类型、使用的图标样式，默认按钮的标识以及消息框样式的数值的总和。有关数值，请参阅“设置”部分。如果省略，则 buttons 的默认值为 0。
Title
显示在对话框标题栏中的字符串表达式。如果省略 title，则将应用程序的名称显示在标题栏中。
Helpfile
字符串表达式，用于标识为对话框提供上下文相关帮助的帮助文件。如果已提供 helpfile，则必须提供 context。在 16 位系统平台上不可用。
Context
数值表达式，用于标识由帮助文件的作者指定给某个帮助主题的上下文编号。如果已提供 context，则必须提供 helpfile。在 16 位系统平台上不可用。
设置
buttons 参数可以有以下值：