VBS :Sorting using built in function

Sorting using built in function

Program to sort an array using built-in function
set a =createobject("system.collections.arraylist")
a.add "5"
a.add "1"
a.add "2"
a.sort
for each i in a
 b=b&i&vbnewline
next
msgbox b