Public MYOBConnection As clsMYOBConnection
Public gstrMYOBUID As String
Public gstrMYOBPwd As String

Public Const MYOB_KEY = "?????"

Public Function GetErrorMessage(intError As Integer) As String
    Select Case intError
        Case 1: GetErrorMessage = "Field value exceeds the maximum length allowed."
        Case 2: GetErrorMessage = "Field value is outside the allowable range."
        Case 3: GetErrorMessage = "Invalid entry."
        Case 4: GetErrorMessage = "Path exceeds the maximum length allowed."
        Case 5: GetErrorMessage = "Field value does no match any of the allowable values"
        Case 6: GetErrorMessage = "Field value is not in the required format (MM/YY)."
        Case 7: GetErrorMessage = "Field value is not on the required format (NNN-NNN)."
        Case 8: GetErrorMessage = "Customer not found."
        Case 9: GetErrorMessage = "Non-alpha characters not allowed."
        Case 10: GetErrorMessage = "Non-numeric values not allowed."
        Case Else: GetErrorMessage = "Undefined error."
    End Select
End Function