sort a map

I searched the Forum regarding how to sort a Map but could not find anything. Here is my solution: Sub Globals Type SortHulp1(Key1 As String, Val1 As String) End Sub Sub SORT_MAP1(inMap1 As Map, Sort1 As String) As Map 'inMap is the Map that needs to be sorted; Sort1 is "Key1" or "Val1"...