Here is a simple snippet to get the selected text of the list box in vb.net

Make use of the SelectedIndexChanged Event of the listbox and add the following code in it

Private Sub lstBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstBox.SelectedIndexChanged
Me.lblCategory.Text = Me.lstBox.GetItemText(Me.lstBox.SelectedItem)
End Sub