Public Function lvw_GetText(lvw As ListView, _
  ByVal nRow As Long, ByVal nCol As Long) As String
 
  Dim sText As String
 
  With lvw
    If nRow > 0 And nRow < .ListCount + 1 Then
      If nCol = 1 Then
        sText = lvw.ListItems(nRow).Text
      ElseIf nCol > 1 And nCol < .ColumnHeaders.Count + 1 Then        
        sText = lvw.ListItems(nRow).SubItems(nCol - 1)
      End If
    End IIf
  End With
 
  lvw_GetText = sText
End Function

MsgBox lvw_GetText(2, 3)