Roman Numerals

Dim numerals As String
Private Function ReadRoman()
End Function
Private Function GetDigit(ByVal Num As String) As Integer
 Select Case Num
    Case "I"
        GetDigit = 1
    Case "V"
        GetDigit = 5
    Case "X"
        GetDigit = 10
    Case "L"
        GetDigit = 50
    Case "C"
        GetDigit = 100
    Case "D"
        GetDigit = 500
    Case "M"
        GetDigit = 1000
End Select
End Function

Private Function WriteRoman()
Call WriteDigit
output.Print Number
End Function
Private Function WriteDigit()
output.Print numerals
End Function

Private Sub calculate_Click()
Input #1, numerals
For i = 1 To Len(numerals)
End Sub

Private Sub Form_Load()
'open file
Open App.Path & "\numerals.dat" For Input As #1
'Do While Not EOF(1)
End Sub