A patch in VB (one of my first code, very ugly)