Last Updated 3 July 2017

The following code allows bold text in a standard message box as well as standard features such as message box icons and more than one button.
You can also include context help items though I've never done so

The code uses the Eval function to format the first part of the code in BOLD text

CODE:

Public Function FormattedMsgBox(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
      Optional title As String = vbNullString, Optional HelpFile As Variant, Optional Context As Variant)       As VbMsgBoxResult

On Error GoTo Err_Handler

'Originally from http://www.trigeminal.com/usenet/usenet015.asp (now defunct)

       FormattedMsgBox = Eval("MsgBox(""" & Prompt & """, " & Buttons & ", """ & title & """)")

Exit_Handler:
   Exit Function

Err_Handler:
   MsgBox "Error " & Err.Number & " in FormattedMsgBox procedure : " & vbCrLf & "   - " & Err.Description
   Resume Exit_Handler

End Function

For example:

FormattedMsgBox "You are not currently connected to the Internet     " & _
                   "@Location map data cannot be downloaded  " & vbCrLf & vbCrLf & _
                   "Please try again later       @", vbCritical, "No Internet connection"

Functions can also be included in the message box text.

In this example, it is being used with a function GetLatestWebVersion:

FormattedMsgBox "Currency Exchange Rates Tracker version " & GetLatestWebVersion () & " is now available for download       " & vbCrLf & _
                   "from the Mendip Data Systems website           " & _
                   "@Click YES to close the program and download the latest version now          " & vbCrLf & _
                   "Click NO if you want to download this later          @", _
                       vbExclamation + vbYesNo, "New version available"

The formatted message box is included as one method of getting users' attention in my example Attention Seeking database.

The example app also includes other items such as customised message boxes and task dialog messages.



Colin Riddington             Mendip Data Systems            Last Updated 3 July 2017