Create algorithm.vb