Indlæs, dekrypter, vis i listbox, igen

Hejsa...
I går fik jeg svar på mine spørgsmål omkring noget med at loade en fil ind i en listbox, nu er der opstået lidt problemer som jeg gerne vil have lidt hjælp til :)

sjh fik bixet denne kode sammen til mig i går:
Private Sub Form_Load()
Dim intFree    As Integer
Dim strLine    As String
Dim arrSplit() As String
Dim strAdr As String

  intFree = FreeFile
  Open "c:\test.txt" For Input As #intFree
    Do While Not EOF(intFree)
        Line Input #intFree, strLine
        If InStr(1, strLine, "|") Then
          arrSplit = Split(strLine, "|")

          'arrSplit(0) = Hej.lir.dk
          'arrSplit(1) = hej
          'arrSplit(2) = pass (krypteret)
          'arrSplit(3) = .lir.dk

strAdr = arrSplit(0)
strUser = arrSplit(1)
strPass = Encrypt.DeCode(Trim$(arrSplit(2)))
strDom = arrSplit(3)

          If UBound(arrSplit) = 3 Then
            List1.AddItem strAdr
          End If

        End If
    Loop
  Close #intFree
End Sub

Nu er problemet så, jeg skal have lavet det så når jeg fx har lavet en knap, og vælger en af de ting som er i listen, skal den lave en msgbox hvor den skriver det som der er valgt i listbox'en. Den skal OGSÅ skrive strUser, strPass og strDom.. Jeg har prøvet at lave det på denne måde:

Option Explicit
Public strUser As String
Public strPass As String
Public strDom As String

Private Sub Command1_Click()
MsgBox List1 & " " & strUser & " " & strPass & " " & strDom
End Sub

Men det virker ikke, da den bare skriver det sidste der er blevet lagt ind i strUser, strPass og strDom:
strUser = arrSplit(1)
strPass = Encrypt.DeCode(Trim$(arrSplit(2)))
strDom = arrSplit(3)

Den kører jo bare i en Loop, og gemmer ikke de data den får.. Jeg tror det burde kunne klares ved at gemme alle data i et Array eller lign... Håber i kan hjælpe!

/Bio