Fix encoding.

Author: Berrysoft

samples/Berrysoft.Data.MapSample/Program.vb

@@ -1,22 +1,22 @@
-Module Program
+Module Program
     Private dictionary As New MultiMap(Of Char, String)
     Sub Main(args As String())
-        dictionary.Add("º£"c, "hai")
-        dictionary.Add("Ë®"c, "shui")
-        dictionary.Add("³¯"c, "chao")
-        dictionary.Add("³¯"c, "zhao")
-        dictionary.Add("Âä"c, "luo")
+        dictionary.Add("海"c, "hai")
+        dictionary.Add("水"c, "shui")
+        dictionary.Add("朝"c, "chao")
+        dictionary.Add("朝"c, "zhao")
+        dictionary.Add("落"c, "luo")
 
-        dictionary.Add("¸¡"c, "fu")
-        dictionary.Add("ÔÆ"c, "yun")
-        dictionary.Add("³¤"c, "zhang")
-        dictionary.Add("³¤"c, "chang")
-        dictionary.Add("Ïû"c, "xiao")
+        dictionary.Add("浮"c, "fu")
+        dictionary.Add("云"c, "yun")
+        dictionary.Add("长"c, "zhang")
+        dictionary.Add("长"c, "chang")
+        dictionary.Add("消"c, "xiao")
 
-        dictionary.Add("³±"c, "chao")
-        dictionary.Add("³£"c, "chang")
+        dictionary.Add("潮"c, "chao")
+        dictionary.Add("常"c, "chang")
 
-        Dim str = "º£Ë®³¯³¯³¯³¯³¯³¯³¯Â両ÔƳ¤³¤³¤³¤³¤³¤³¤Ïû".ToArray()
+        Dim str = "海水朝朝朝朝朝朝朝落浮云长长长长长长长消".ToArray()
         Console.WriteLine(str)
 
         For i As Integer = 0 To str.Length - 1