+ If reAfxTarg.Test(sMasterLine) Then 'AFX_TARG_*...
+ Set oMatch = reAfxTarg.Execute(sMasterLine)(0)
+ sMsgId = oMatch.SubMatches(0)
+ If (sMsgId <> "") And (oTranslations.Exists(sMsgId) = True) Then 'If translation located...
+ sMsgStr = oTranslations(sMsgId)
+ sLanguageLine = Replace(sLanguageLine, "defined(" & sMsgId, "defined(" & sMsgStr)
+ End If
+ ElseIf reLanguage.Test(sMasterLine) Then 'LANGUAGE...