Преобразование арабских цифр в римские цифры в визуальном базовом консольном приложении

Я хочу преобразовать положительные целые числа в римские целые числа в консольном приложении VB. Я новичок и знаю более простой способ конвертировать обычные числа в римские. И можете ли вы объяснить, как создать функцию для этого более эффективно и легко