Selected item in a listbox

how do i find the selected item in a listbox???

Private Sub Command1_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
MsgBox "Item Nr." & i + 1 & " is selected."
MsgBox List1.Text
Exit For
End If
Next i
End Sub

why so much code? List1.ListIndex :P

and if you want the text of the selected item use:
list1.text

Kaluriel is correct, and I just thought I'd add, it's possible to have no selection in a listbox too. In which case the listindex is -1.