roman numerals in VB6

Could someone please send me code or help for a program in VB6 that converts roman numerals to numbers? It has to be able to handle combinations like XIII and no when a numeral is invalid like XCI. I have been having trouble with this for a while, and I need it for a class I am currently holding a D in. Please respond quickly if you can, it's due the week of March 29th.