Udskrive flere linjer til skærm fra en listbox

Bogmærke - så skal du have det ind i Word?

******************
    Dim i As Integer
    Dim strAdresser As String
   
    For i = 0 To Me.lstAdresser.ListCount - 1
        If Me.lstAdresser.Selected(i) = True Then
            If strAdresser = "" Then
                strAdresser = Me.lstAdresser.List(i)
            Else
                strAdresser = strAdresser & vbCr & Me.lstAdresser.List(i)
            End If
        End If
    Next i
   
    If ActiveDocument.Bookmarks.Exists("adresser") Then
        ActiveDocument.Bookmarks("adresser").Range.Text = strAdresser
    End If
************

Ret navnet på listboxen og bogmærket.