'####
'# Critical Message Box
'# Show given message with critical symbol
'####
Function VBcritMsg(msg)
    msg = replace(msg, "\n", vbcr)
    VBCritMsg = MsgBox(msg, 16, "Equine World Class Database")
End Function

'####
'# Info Message Box
'# Show given message with information symbol
'####
Function VBinfoMsg(msg)
    msg = replace(msg, "\n", vbcr)
    VBinfoMsg = MsgBox(msg, 64, "Equine World Class Database")
End Function

'####
'# Confirm Message Box
'# With Yes / No Option
'####
Function VBconfirmMsg(msg)
intAnswer = _
    Msgbox(msg,vbYesNo,"Equine World Class Database")

If intAnswer = vbYes Then
    VBconfirmMsg = true
Else
    VBconfirmMsg = false
End If
End Function