Public Sub ShowMessage(ByVal MSG As String, Optional ByVal TextColor As String = "'Red'", Optional ByVal IsVisible As Boolean = True, Optional ByVal ButtonCaption As String)
      MSGBar.Message = "<StackPanel Orientation='Horizontal'><TextBlock Padding='8, 0, 0, 0' FontSize='12' Foreground='" & TextColor & "'>" & MSG & "</TextBlock></StackPanel>"
      MSGBar.Visible = IsVisible
      If ButtonCaption <> "" Then
            MSGBar.AddButton 801, ButtonCaption, ButtonCaption
      Else
            MSGBar.RemoveButtons
      End If
End Sub

 

You can replace Message string with new markup:

 

MessageBar.Message = _
        "<StackPanel Orientation='Horizontal'>" & _
        "        <Image Source='10000'/>" & _
        "        <TextBlock Padding='3, 0, 0, 0' VerticalAlignment='Center'><Bold>Informations</Bold></TextBlock>" & _
        "        <TextBlock Padding='10, 0, 0, 0' VerticalAlignment='Center' Foreground='Red'>About the message.</TextBlock>" & _
        "</StackPanel>"

how can I be able to change the colored string in the messagebar in run-time:

 

Private Sub CreateMessageBar()
   
    Dim MessageBar As MessageBar
    Set MessageBar = CommandBars.MessageBar

    MessageBar.Visible = True
   
    MessageBar.AddCloseButton "close..."
   
    MessageBar.AddButton 1000, "Options...", "Show more options"
    MessageBar.Message = _
        "<StackPanel Orientation='Horizontal'>" & _
        "        <Image Source='10000'/>" & _
        "        <TextBlock Padding='3, 0, 0, 0' VerticalAlignment='Center'><Bold>Informations</Bold></TextBlock>" & _
        "        <TextBlock Padding='10, 0, 0, 0' VerticalAlignment='Center'>About the message.</TextBlock>" & _
        "</StackPanel>"
End Sub

 

thank you