how to get listview selected item?

Private Sub Form_Load()
With lvwSpecies
' Add three columns to the list - one for each data type.
' Note that the data type is set in the column header's
' tag in each case

.ColumnHeaders.Add(, , strHeader(0)).Tag = "STRING"
.ColumnHeaders.Add(, , strHeader(1)).Tag = "STRING"
.ColumnHeaders.Add(, , strHeader(2)).Tag = "String"
' Set the column alignment - has no bearing on the sorts.

.ColumnHeaders(1).Alignment = lvwColumnLeft
.ColumnHeaders(2).Alignment = lvwColumnCenter
.ColumnHeaders(3).Alignment = lvwColumnCenter

.ColumnHeaders(2).Width = 3000
'Populate the list with data in Species files
Dim intCounter As Integer
With .ListItems
For intCounter = LBound(codeTypeArray) To UBound(codeTypeArray)
With .Add(, , codeTypeArray(intCounter).strCode)
.ListSubItems.Add , , codeTypeArray(intCounter).strCodeInfo
.ListSubItems.Add , , str(codeTypeArray(intCounter).intMaxNumber)
End With
Next
End With
End With

End Sub




Private Sub ok_Click()
Dim str As String
str = lvwSpecies.text

'what should go here if i want to get the text of select item? i just
'need the text of first colum.


End Sub


Is there a way to get the item text?
Thanks

lvwSpecies.SelectedItem.Text