''''''''''''''''''''''''''''''''''''''''''''
' 1=Yes, 2=Cancel
'''''''''''''''''''''''''''''''''''''''''''
Public Function OpenVbOkCancelDialog(ByVal title, ByVal content) ' ByRef
	Const vbOKCancel = 1
    OpenVbOkCancelDialog = MsgBox (content,vbOKCancel,title) 
End Function

Public Sub OpenDialog(ByVal title, ByVal content)
	Const vbOKOnly = 0
	If IsNull(title) Or IsEmpty(title) Then
		title = Document.Title
	End If
	MsgBox content,vbOKOnly,title
End Sub