list boxes

Probably a dumb question but if you're adding items to a list box using
lstchords.additem say A, B, C and D for instance. How do you say, if A is selected then... or if B is selected in the list box then....

Private Sub Command1_Click()
If List1.Text = "A" Then
MsgBox List1.Text
ElseIf List1.Text = "B" Then
MsgBox List1.Text
ElseIf List1.Text = "C" Then
MsgBox List1.Text
End If
End Sub

Private Sub Form_Load()
List1.AddItem "A"
List1.AddItem "B"
List1.AddItem "c"
End Sub

'this method is used for double clicking a listbox
Private Sub List1_DblClick()
If List1.Text = "A" Then
MsgBox List1.Text
ElseIf List1.Text = "B" Then
MsgBox List1.Text
ElseIf List1.Text = "C" Then
MsgBox List1.Text
End If
End Sub

List1.List(List1.ListIndex) will return the selected item. Use it in a Select Case statement or an If statement. (Select Case is best for multiple items).