Since no other solution came up I solved it with this crappy function:

 

Private Function aao(ByVal str As String) As String
   str = Replace(str, "Ã¥", "å")
   str = Replace(str, "ä", "ä")
   str = Replace(str, "ö", "ö")
   Return str
End Function