e9net, had a solution but i figured out the easiest way to do it by simply adding the following lines...
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
RichTextBox1.Clear()
RichTextBox1.Text = ListBox1.SelectedItem
End Sub
It was a lot less code and works. Thanks for your help though!