Public Function ListBoxCopyFromClipboard(ByVal ListBox As ListBox) As Boolean
        ' Enthält die Zwischenablage Text?
        If My.Computer.Clipboard.ContainsText() Then
            ' Text aus der Zwischenablage holen
            Dim items As String = My.Computer.Clipboard.GetText()
 
            ' abschließende Zeilenumbrüche entfernen
            items = items.TrimEnd(ControlChars.NewLine.ToCharArray)
 
            ' Inhalt der ListBox hinzufügen
            ListBox.Items.AddRange(items.Split(ControlChars.NewLine))
 
            Return True
        Else
            Return False
        End If
    End Function

mfg Lukas