Visual Basic

Dim lastFont As Font = Nothing
Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
    If (lastFont Is Nothing) OrElse (Not lastFont.Equals(RichTextBox1.SelectionFont)) Then
        'The font is different so reflect changes

        'Update lastFont to current font
        lastFont = RichTextBox1.SelectionFont

        'Testing purposes
        Console.WriteLine(RichTextBox1.SelectionFont.ToString)
    End If
End Sub

Dim m_LastFont As Font = Nothing
Private Sub rtbText_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtbText.SelectionChanged
    'Has font changed since last position?
    If m_LastFont Is Nothing OrElse Not m_LastFont.Equals(rtbText.SelectionFont) Then
    'Yes.  Update GUI to reflect it

        'Set last font to new font
        m_LastFont = rtbText.SelectionFont


        'If Bold button doesn't reflect current state change it
        If tlbBold.Checked <> m_LastFont.Bold Then
            tlbBold.Checked = m_LastFont.Bold
            Bold = m_LastFont.Bold
        End If

        'If Italic button doesn't reflect current state change it
        If tlbItalic.Checked <> m_LastFont.Italic Then
            tlbItalic.Checked = m_LastFont.Italic
            Italic = m_LastFont.Italic
        End If
    End If
End Sub

Private Sub rtbText_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles rtbText.SelectionChanged

       'Has font changed since last position?
        If m_LastFont Is Nothing OrElse Not m_LastFont.Equals(rtbText.SelectionFont) Then
            'Yes.  Update GUI to reflect it
            'Set last font to new font
            m_LastFont = rtbText.SelectionFont

            'If Bold button doesn't reflect current state change it
            If tlbBold.Checked <> m_LastFont.Bold Then
                tlbBold.Checked = m_LastFont.Bold
                Bold = m_LastFont.Bold
            End If
                                            
        End If
        'Set last font to new font
        m_LastFont = rtbText.SelectionFont
    End Sub

Case "doc"
'Open WOrd
                 Dim newApp As Word.Application = New Word.Application
'Give it the file to open  
                 Dim Source As Object = (OFD.FileName)
                 Dim Unknown As Object = Type.Missing
   newApp.Documents.Open(Source, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown, Unknown)


                'Select it all           
                        Source.Select()
                'Send it to the clipboard
                        Clipboard.SetDataObject(Source)
                'Shut it down  
                        newApp.Quit(Unknown, Unknown, Unknown)
                                                
                 'Add code here to paste it into my RTB
                           
                    End Select

Private Function newline(ByVal count As Integer) As String
    Return New String(vbCrLf, count)
End Function