Function loetelu(paik, ParamArray isendid() As Variant)
  Dim tulemus, element, nr
  nr = 0
  For Each element In isendid
    nr = nr + 1
    If nr = 1 Then
      tulemus = element
    Else
      tulemus = tulemus & ", " & element
    End If
  Next element
  If nr = 0 Then
    loetelu = paik & " on thi"
  Else
   loetelu = paik & ": " & tulemus
  End If
End Function
