--main WriteOK testmbas\WriteOk.vb