Sub ABC()
arr = Array("d", "g", "v", "p", "a")
For i = 0 To UBound(arr) - 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
Temp = arr(j)
arr(j) = arr(i)
arr(i) = Temp
End If
Next
[a1].Resize(1, UBound(arr) + 1) = arr
End Sub