Sub mySort(ByRefa() As String, n As Integer)Dim i, j AsIntegerDim c As String For i = 1 To n For j = i + 1 To n If a(i) > a(j) Then c = a(i) a(i) = a(j) a(j) = c End If NextNextEnd Sub