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