add error cache

src/module/Common_Functions.bas

@@ -320,6 +320,11 @@ Public Function FormatDateInput(ByVal inputStr As String) As String
     End If
 End Function
 
-Function ColNumToLetter(colNum As Long) As String
-    ColNumToLetter = Split(Cells(1, colNum).Address, "$")(1)
+Function GetErrorMsg(ByVal errorCode As String, Optional ByVal param As String = "") As String
+    Dim errorList As Object: Set errorList = GetErrorList()
+    Dim errorMessage As String
+    If errorList.Exists(errorCode) Then
+        errorMessage = Replace(errorList(errorCode)(0), "{0}", param)
+    End If
+    GetErrorMsg = errorMessage
 End Function