Option Explicit

Sub RomanToArabic()
    
    'Declare variables
    Dim convertedvalue
    Dim message As String
    Dim reply
    Dim Roman As String

    'Get input
    Roman = InputBox("Enter Roman numeral to convert", "Roman Numeral Converter")
    convertedvalue = Arabic(Roman)
    
    'If input invalid, exit
    If convertedvalue = "" Then Exit Sub
        
    'Build dialog-box message
    message = "Roman" & Chr(9) & Chr(9) & "Arabic"
    message = message + Chr(13)
    message = message + Roman & Chr(9) & Chr(9) & convertedvalue
    message = message + Chr(13) + Chr(13)
    message = message + "Another?"
    
    'Do it again if user clicks Yes
    reply = MsgBox(message, vbYesNo, "Roman Numeral Converter")
    If reply = vbYes Then RomanToArabic

End Sub
