Indlæs array i Listview

Nedenstående kode bruger jeg til at finde bestemte data i et array som så "fyldes" i 'arrUdvalgteKon'-arrayet.
Spørgsmålet er nu hvordan jeg får læst 'arrUdvalgteKon'-arrayet ind i en Listview-control på min formular 'frmTest' og derefter returneret den kontakt som bliver valgt på 'frmTest' til mit class-modul så jeg kan arbejde videre med den der.

Kommentarer til metodevalget i koden modtages også gerne.

På forhånd tak :-)



'================ class modul start ============================
Option Explicit
Option Base 1
Type csKontakt
    Fornavn As String
    Efternavn As String
    Mobil As Long
End Type
Dim arrKontakter() As csKontakt
Dim arrUdvalgteKon() As csKontakt
Dim KontListe(5) As String

Private Sub FyldArr()
Dim i As Integer
Dim tmp
KontListe(1) = "Kim;Jensen;23568987"
KontListe(2) = "Ole;Nielsen;21457887"
KontListe(3) = "Lone;Hansen;56544587"
KontListe(4) = "Lisa;Bjerre;25252623"
KontListe(5) = "Jonas;Obel;45788956"

    For i = LBound(KontListe) To UBound(KontListe)
        tmp = Split(KontListe(i), ";")
        ReDim Preserve arrKontakter(i)
            arrKontakter(i).Fornavn = tmp(0)
            arrKontakter(i).Efternavn = tmp(1)
            arrKontakter(i).Mobil = tmp(2)
                'Debug.Print arrKontakter(i).Fornavn & " " & arrKontakter(i).Efternavn & " Mobil: " & arrKontakter(i).Mobil
    Next i
End Sub

Private Sub FindForBogstav(Fbs As String)
Dim i As Integer, j As Integer
Dim tmp() As csKontakt
Fbs = UCase(Fbs)
FyldArr
    For i = LBound(arrKontakter) To UBound(arrKontakter)
        If UCase(Left(arrKontakter(i).Fornavn, 1)) = Fbs Then
        j = 1
            ReDim Preserve tmp(j)
                tmp(j) = arrKontakter(i)
                    Debug.Print tmp(j).Efternavn
                j = j + 1
        End If
    Next i
    arrUdvalgteKon = tmp
End Sub

Private Sub Kald()
    Call FindForBogstav("l")
End Sub
'================ class modul slut ============================