Отформатировать числа в римские цифры?

Можно ли использовать функцию Формат для отображения целых чисел в римских цифрах?

For Counter As Integer = 1 To 10
   Literal1.Text &= Format(Counter, "???")
Next

Ответы на вопрос(4)

Ваш ответ на вопрос