NumRomani

Function RomanNum(Number As Integer) As String
Dim Remain As Integer, CurTotal As Integer
Dim Looper As Integer
Remain = Number
If Remain >= 1000 Then
CurTotal = Remain \ 1000
For Looper = 1 To CurTotal
RomanNum = RomanNum & "M"
Next Looper
End If
Remain = Remain Mod 1000
If Remain >= 500 Then
CurTotal = Remain \ 500
For Looper = 1 To CurTotal
RomanNum = RomanNum & "D"
Next Looper
End If

Remain = Remain Mod 500

If Remain >= 100 Then
CurTotal = Remain \ 100
For Looper = 1 To CurTotal
RomanNum = RomanNum & "C"
Next Looper
End If

Remain = Remain Mod 100

If Remain >= 50 Then
CurTotal = Remain \ 50
For Looper = 1 To CurTotal
RomanNum = RomanNum & "L"
Next Looper
End If

Remain = Remain Mod 50

If Remain >= 10 Then
CurTotal = Remain \ 10
For Looper = 1 To CurTotal
RomanNum = RomanNum & "X"
Next Looper
End If

Remain = Remain Mod 10

If Remain = 1 Then RomanNum = RomanNum & "I"
If Remain = 2 Then RomanNum = RomanNum & "II"
If Remain = 3 Then RomanNum = RomanNum & "III"
If Remain = 4 Then RomanNum = RomanNum & "IV"
If Remain = 5 Then RomanNum = RomanNum & "V"
If Remain = 6 Then RomanNum = RomanNum & "VI"
If Remain = 7 Then RomanNum = RomanNum & "VII"
If Remain = 8 Then RomanNum = RomanNum & "VIII"
If Remain = 9 Then RomanNum = RomanNum & "IX"

End Function