konversi angka biasa ke romawi (vb)

Function Romawi(roma As Integer) As String

Dim keluar As String

keluar = String(Int(roma / 1000), "M")
roma = roma - (Int(roma / 1000) * 1000)

If roma >= 900 Then
keluar = keluar & "CM"
ElseIf roma >= 500 And roma < 900 Then
keluar = keluar & "D" & String(Int((roma - 500) / 100), "C")
ElseIf roma >= 400 And roma < 500 Then
keluar = keluar & "CD"
Else
keluar = keluar & String(Int(roma / 100), "C")
End If
roma = roma - (Int(roma / 100) * 100)


If roma >= 90 Then
keluar = keluar & "XC"
ElseIf roma >= 50 And roma < 90 Then
keluar = keluar & "L" & String(Int((roma - 50) / 10), "X")
ElseIf roma >= 40 And roma < 50 Then
keluar = keluar & "XL"
Else
keluar = keluar & String(Int(roma / 10), "X")
End If
roma = roma - (Int(roma / 10) * 10)


If roma >= 9 Then
keluar = keluar & "IX"
ElseIf roma >= 5 And roma < 9 Then
keluar = keluar & "V" & String(Int((roma - 5) / 1), "I")
ElseIf roma >= 4 And roma < 5 Then
keluar = keluar & "IV"
Else
keluar = keluar & String(Int(roma / 1), "I")
End If
Romawi = keluar
End Function