填空题

下列程序的功能是：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请填空。
Sub PrintOut()
Dim a As Integer
a=MsgBox("输出结果"，vblnformation+vbYesNo，"提示:")
If a=______Then
Print "Myresult"
End If
End Sub