Из шести имен вывести 2 в алфавитном порядке - VB

Формулировка задачи:

Люди помогите. Мне нужно создать программу, которая просит пользователя ввести шесть имен, и после этого отображает только два имя в алфавитном порядке. первое имя hightName и второе имя lowName. вот мой код, но тут чего то нехватает

Module Module1
    Const MAX_Names = 6
    Sub Main()
        Dim name As String
        Dim lowName As String
        Dim highName As String
        Dim count As Integer
 
        count = 0
        Do Until count = MAX_Names
            Console.WriteLine("Enter the name: ")
            name = Console.ReadLine
 
            highName = name
            lowName = name

            count = count + 1
        Loop

        Console.Write("High name is:" + highName + vbCrLf)
        Console.Write("Low name is:" + lowName + vbCrLf)
 
    End Sub
End Module

спасибо большое

Решение задачи: «Из шести имен вывести 2 в алфавитном порядке»

textual
                            Листинг программы 
                        

                            Option Explicit
Option Compare Text
    Sub Main()
        Dim arr() As String, temp As String, i As Integer, j As Integer
        Dim answer As String
        arr = Split(InputBox("Enter the name:", , "Петя Вася Ира Лена Толик Света"), " ")
 
        For i = 0 To UBound(arr)
            For j = 0 To UBound(arr) - 1
                If Mid(arr(j), 1, 1) > Mid(arr(j + 1), 1, 1) Then
                    temp = arr(j)
                    arr(j) = arr(j + 1)
                    arr(j + 1) = temp
                End If
            Next
        Next
       
        For i = 0 To UBound(arr)
            answer = answer & arr(i) & Chr(13)
        Next
        
        MsgBox (answer)
        MsgBox ("High name is:   " + arr(0) + vbCrLf)                 ' 0 - первое слово 
        MsgBox ("Low name is:   " + arr(UBound(arr)) + vbCrLf)   '(UBound(arr) - последнее слово
        'Form1.Show: Form1.Visible = True
        'Form1.Print (answer)
    End Sub
                        