填空题

下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。
Sub PrintOut()
Dim a As Integer
a = MsgBox("输出结果", vblnformation + vbYesNo, "提示：")
If a = ______ Then
Print "Myresult"
End If
End Sub