' returns the application string resources identified in the TagValues array
' if no string resource is found then the DefaultValue is returned
Sub GetApplicationStrings(TagValues() As String, DefaultValue As String, bAppendTagValue As Boolean) As Map
Dim StringValues As Map: StringValues.Initialize
For Each TagValue As String In TagValues
Dim ResourceValue As String = DefaultValue
If bAppendTagValue Then ResourceValue = ResourceValue & TagValue
ResourceValue = GetApplicationString(TagValue, ResourceValue)
StringValues.Put(TagValue, ResourceValue)
Next
Return StringValues
End Sub