关于MsgBox函数的问题 急
<html>
<head> <title> MsgBox函数键值返回例</title>
<script language="VBScript">
<!--
Option Explicit
Sub mybutton_OnClick()
Dim m1,msg1,msg2,msg,custname,x
m1=vbCrLf
msg1="请输入姓名："
msg2="输入后请确定"
msg=msg1+m1+msg2
custname=InputBox(msg,"msgbox函数值返回例","张辉")
x=MsgBox"输入的姓名是"&custname,3+32+0,"msgbox函数返回"
if x=VbYes Then
MsgBox"输入正确，请确定"
else if x=VbNo Then
MsgBox"请重新输入"
end if
end Sub
-->
</script>
</head>
<body>
<center>
<form>
<Input type="button" name="mybutton" value="msgbox 函数返回值">
</form>
</center>
</body>
</html>
不知道问题在哪，敬候
