Wpf controls WPF Richtextbox多种颜色和字体

我在Windows窗体中添加了一个名为RoomMessages的WPF Richtextbox。 我可以使用上面的代码添加文本，它可以添加1种颜色和字体的文本。在将单词添加到richtextbox之前，我需要能够更改单词的颜色。我已经找了好几天了，但运气不好

我见过使用TextRange或TextBlocks的C代码，但没能让它们在VB中运行

    Public Sub ChatMessage(ByVal sUser As String, ByVal sMessage As String)
    Dim tmpData As String = sUser & ":" & vbTab & sMessage
    Dim p As Paragraph = New Paragraph(New Run(tmpData))
    p.Foreground = System.Windows.Media.Brushes.LightGreen
    p.FontSize = 12
    p.Margin = New System.Windows.Thickness(0, 0, 0, 0)

    RoomMessages.RichTextBox.Document.Blocks.Add(p)
    RoomMessages.RichTextBox.ScrollToEnd()      

End Sub

         tUser.Text = sUser & ":"
    tUser.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Colors.LightGreen)

    tMessage.Text = sMessage
    tUser.Foreground = New System.Windows.Media.SolidColorBrush(System.Windows.Media.Colors.White)

    P.Inlines.Add(tUser)
    P.Inlines.Add(tMessage)

    P.FontSize = 12
    p.Margin = New System.Windows.Thickness(0, 0, 0, 0)