Przenoszenie linii zawierających spacje z RichTextbox do ListBox

po wklejeniu linijek zawierajacych spacje - w listboxie tworza się nowe linie w miejscu wystapienia spacji:

            Dim values As String() = RichTextBox401.Text.Split

            For Each value As String In values
                If Not value = "" Then
                    ListBox1.Items.Add(value.Trim)
                    If Not ListBox1.Items.Count <= 0 Then
                        ListBox1.SelectedIndex = 0
                    End If
                End If
            Next

chcialbym aby linijki przenosily sie razem ze spacjami i nie tworzyly sie przez to niepotrzebne nowe linie w listbox

Przecież sam to psujesz wiesz co robi Split? Czy programujesz na pałe uda się lub nie? Na pewno nie:

Dim values As String() = RichTextBox401.Text.Split

tylko:

Dim values As String() = RichTextBox1.Lines

Co do drugiej części kodu to nie:

        For Each value As String In values
            If Not value = "" Then
                ListBox1.Items.Add(value.Trim)
                If Not ListBox1.Items.Count <= 0 Then
                    ListBox1.SelectedIndex = 0
                End If
            End If
        Next

tylko:

        For Each value As String In values
            value = value.Trim
            If value.Length > 0 Then
                ListBox1.Items.Add(value)
            End If
        Next
        If ListBox1.Items.Count > 0 Then 'zaznaczasz dopiero po dodaniu wszystkich a nie w pętli cały czas
            ListBox1.SelectedIndex = 0
        End If