Code:
    Private Sub SortColour()
        Dim ObjectList As New List(Of String)
        For i As Integer = 1 To lstObjects.Items.Count - 1
            ObjectList.Add(lstObjects.Items(i).ToString)
        Next

        Dim L As Integer = rtbRoom.TextLength
        For Each word As String In ObjectList
            Dim lastindex = rtbRoom.Text.LastIndexOf(word)
            Dim index As Integer = 0
            While index < lastindex
                rtbRoom.Find(word, index, L, RichTextBoxFinds.None)
                rtbRoom.SelectionColor = Color.Lime
                index = rtbRoom.Text.IndexOf(word, index) + 1
            End While
        Next
    End Sub
HI, looking for some friendly advice.

Can anyone please tell me how I can get the above code to be NOT case sensitive.

I've tried all sorts but can't fathom it. Any help will be greatly appreciated.