List1.AddItem "vb@rchiv" & String$(10, vbTab) & "http://www.vbarchiv.net"

Private Sub List1_Click()
  Dim sLink As String
 
  If List1.ListIndex >= 0 Then
    sLink = Mid$(List1.Text, InStr(List1.Text, vbTab) + 10)
   ' ...
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de