Сортировка данных после объединения - Visual Basic .NET

Public Class Form1
    Private T As String
    Dim m0() As [String] = {"Бословяк", "Изотова", "Копущу", "Котляров", "Кубрак", "Кулев"}
    Dim m1() As [String] = {"Лоцман", "Новожеев", "Стрельцов", "Шевцов", "Юрченков", "Янович"}
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        T = "исходный массив"
        For Each f As Object In m0
            ListBox1.Items.Add(f)
        Next
        For Each f As Object In m1
            ListBox2.Items.Add(f)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox3.Items.Clear()
        Dim b = From c In m0 Order By c Ascending
        b = From c In m0 Order By c Descending
        For Each f In b
            T = T + f.ToString + ""
            ListBox3.Items.Add(f)
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox3.Items.Clear()
        Dim b = From c In m1 Order By c Ascending
        b = From c In m1 Order By c Descending
        For Each f In b
            T = T + f.ToString + ""
            ListBox3.Items.Add(f)
        Next
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox3.Items.Clear()
        T = "сумма"
        For Each f As Object In m0
            ListBox3.Items.Add(f)
        Next
        For Each f As Object In m1
            ListBox3.Items.Add(f)
        Next
        
    End Sub
 
End Class