If RTrim(.Songname) <> "" Then
             Set lItem = list1.ListItems.Add(, , RTrim(.Songname))
Else
             Set lItem = list1.ListItems.Add(, , "Tuntematon")
End If