tem:", , "C" &amp;
       lvwMain.ListItems.Count + 1)
      If sKey &lt;&gt; "" Then
         lvwMain.ListItems.Add , sKey, sText
      End If
   End If
   Exit Sub
ErrorHandler:
   MsgBox "Error: " &amp; Err.Description &amp; " [" &amp; Err.Number &amp; "]", vbInformation
   Exit Sub
End Sub

Private Sub cmdInfo_Click()
On Error GoTo ErrorHandler
Dim sInfo As String
   If Not lvwMain.SelectedItem Is Nothing Then
      With lvwMain.SelectedItem
         sInfo = "Text = " &amp; .Text &amp; vbCrLf
         s