Use the function below instead of Msgbox, as follows:
fMsgBox "This is bold.@@This is not bold.",,"Box Title"
Public Function fMsgBox(Prompt As String, Optional Buttons As Integer =
vbOKOnly, _
Optional Title As Variant, Optional HelpFile As Variant, Optional Context
As Variant) As Integer
On Error Resume Next
Dim strMsgBox As String
strMsgBox = "Msgbox(" & Chr(34) & Prompt & Chr(34) & "," & Buttons
If IsMissing(Title) = False Then
strMsgBox = strMsgBox & "," & Chr(34) & Title & Chr(34)
Else
strMsgBox = strMsgBox & "," & Chr(34) & GetOption("Project Name") &
Chr(34)
End If
If IsMissing(HelpFile) = False Then
strMsgBox = strMsgBox & "," & Chr(34) & HelpFile & Chr(34)
End If
If IsMissing(Context) = False Then
strMsgBox = strMsgBox & "," & Context
End If
strMsgBox = strMsgBox & ")"
fMsgBox = Eval(strMsgBox)
End Function