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