VB

From Rosetta Code