I had to do a couple of fairly large applications and wanted the message boxes to look 'special'
You can look at the attached which use a user form as a display, but I added options, etc to avoid re-inventing the wheel and to keep things looking the same
You could customize the user form using the standard UF tools to add a logo or lables, etc.
Capture.JPG
Option Explicit
Sub test()
'the ^ equals vbLfCr and the ` equals vbCLf & vbTab
Call msgInformation("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
Call msgWarning("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
Call msgCritical("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
'vbYes = 6, vbNo = 7
MsgBox msgContinueOrNot("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
MsgBox msgContinueOrNot("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333", False)
'vbYes = 6, vbNo = 7
MsgBox msgYesOrNo("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
MsgBox msgYesOrNo("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333", False)
'vbAbort = 3, vbRetry = 4, vbIgnore = 5
MsgBox msgAbortRetryIgnore("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333")
MsgBox msgAbortRetryIgnore("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333", vbRetry)
MsgBox msgAbortRetryIgnore("AAAA bbbbbbbbbbbbbb cccccccccccccccc^^ddddd eeeeeeeeeeeee fffffffff`11111111`2222222`3333333", vbIgnore)
'example of real world
If msgYesOrNo("File not there!!!^^Keep on going?") = vbNo Then
MsgBox "OK, stopping"
Else
MsgBox "OK, I'll look for it"
End If
End Sub