'Returns a Map which has the same keys and values as the original - keywords are set to lowerCase and are Trim-med
Private Sub StandardizeKeywords(mp As Map) As Map
Dim newM As Map
newM.initialize
For Each kw As String In mp.Keys
newM.Put(kw.ToLowerCase.trim, mp.Get(kw))
Next
Return newM
End Sub