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.Text = ListBox1.SelectedItem
It was a lot less code and works. Thanks for your help though!