Option Explicit

Main

Sub Main()
　　Dim a

　　a = Array(1, 2, 1, 1, 4, 3, 9)
　　StarlinSort a
　　WScript.Echo Join(a, ",")
End Sub

Sub StarlinSort(arr)
　　Dim i, j

　　j = 0

　　For i = 0 To UBound(arr)
　　　　If i = UBound(arr) Then
　　　　　　arr(j) = arr(i)
　　　　　　j = j + 1
　　　　ElseIf arr(i) <= arr(i + 1) Then
　　　　　　arr(j) = arr(i)
　　　　　　j = j + 1
　　　　Else
　　　　　　arr(i + 1) = arr(i)
　　　　End If
　　Next

　　ReDim Preserve arr(j - 1)
End Sub