Numeric textboc, accept only numeric with denomination. VB.Net