MsgBox com "parte" em negrito

Srs. bom dia;

Como negritar uma string dentro de  uma msgbox ?

Estou usando o seguinte código:

DoCmd.Beep
If MsgBox("Pagamento MENOR que o vencimento !!!" & Chr(13) & Chr(13) & "Deseja gerar novo pagamento com o saldo restante ? " & Chr(13) & Chr(13) & "R$ " & Format(SaldoBx, "0.00"), vbYesNo, "Aviso de Baixa Parcial") = vbYes Then
End If

Queria que a parte "Format(SaldoBx, "0.00")" ficasse destacada em negrito !

Achei aqui no fórum um ótima contribuição do Sr. JPAULO a função:

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
   If IsMissing(HelpFile) Or IsMissing(Context) Then
       FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """)")
   Else
       FormattedMsgBox = Eval("MsgBox(""" & Prompt & _
        """, " & Buttons & ", """ & Title & """, """ & _
        HelpFile & """, " & Context & ")")
   End If
End Function

Porem, não estou conseguindo adaptar na minha msgbox, alguma dica ?

Grato

Carniel

Você já viu esse tópico.

http://maximoaccess.forumeiros.com/t8351-deixar-msgbox-em-negrito

Obrigado pela atenção amigo;

Ví sim, logo abaixo tem uma forma "menor" que parece faz o mesmo efeito feito pelo JPAULO (autor de vários Helps);

Se possível gostaria de usar essa forma mais simplificada, estou aguardando ou o JPAULO ou alguém que tenha passado pela mesma situação me ajudar;

Por hora muito obrigado;

Carniel

Csrniel, atente para colocar sua dúvida na sala correta.

Este tópico será movido.


Moderação