10/3

Option Explicit
Sub sort_example()
    Dim names() As String, counter As Integer, i As Integer, j as Integer
    Dim k As Integer
    counter = InputBox("How many names are we sorting?")
    ReDim names(1 To counter)
    For i = 1 to counter
        names(i) = InputBox("what is the name?")
    Next i
    For j = 1 To counter
        For k = 1 To counter - 1 
            If names(k) > names(k + 1) Then
                temp = names(k + 1)
                names(k + 1) = names(k)
                Names(k) = temp
            End If
        Next k
    Next j
    
End Sub