Attribute VB_Name = "modLocale"
Public Function locale(ByVal KeyCode) As String
On Error GoTo ReportErr
LocaleTXT = App.Path & "\database\configuration\locale.ini"
localen = ReadINI("locale", KeyCode, LocaleTXT)
If localen = "" Then locale = "" & KeyCode Else locale = localen
Exit Function
ReportErr:
MsgBox "Locale Error!" & vbNewLine & "-----------------------" & vbNewLine & Err.Description, vbCritical, "Error"
End Function