Dim chars = New List(Of String)
chars.AddRange({"「", "」", "、", "・", "零", "一", "二", "三", "四", "五", "六", "七", "八", "九"})     '14
chars.AddRange({"十", "あ", "い", "う", "え", "お", "か", "き", "く", "け", "こ", "さ", "し", "す"})     '14
chars.AddRange({"せ", "そ", "た", "ち", " ", "！", """, "#", "$", "%", "&", "'", "(", ")"})     '14
chars.AddRange({"*", "+", ",", "-", ".", "/", "0", "1", "2", "3", "4", "5", "6", "7"})     '14
chars.AddRange({"8", "9", ":", ";", "<", "=", ">", "?", "@", "A", "B", "C", "D", "E"})     '14
chars.AddRange({"F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "O", "R", "S"})     '14
chars.AddRange({"T", "U", "V", "W", "X", "Y", "Z", "[", "ю", "]", " ", "_", "'", "a"})     '14
chars.AddRange({"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o"})     '14
chars.AddRange({"p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "{", "|", "}"})     '14
chars.AddRange({"-", "。", "覧", "酒", "ケ", "ン", "回", "を", "見", "る", "~", "ん", "課", "長"})     '14
chars.AddRange({"代", "理", "以", "上", "は", "タ", "イ", "ム", "カ", "ー", "ド", "廃", "止", "接"})     '14
chars.AddRange({"待", "で", "飲", "翌", "日", "つ", "ら", "前", "死", "ね", "デ", "パ", "ッ", "ゲ"})     '14
chars.AddRange({"テ", "ス", "ト", "に", "て", "と", "仕", "置", "れ", "げ", "主", "人", "公", "し"})     '14
chars.AddRange({"ゃ", "が", "ラ", "メ", "食", "過", "ぎ", "腹", "わ", "よ", "ゲ", "リ", "ビ", "マ"})     '14
chars.AddRange({"ク", "口", "な", "の", "早", "朝", "フ", "レ", "退", "社", "蛇", "苺", "紅", "茶"})     '14
chars.AddRange({"キ", "サ", "本", "当", "嬉", "モ", "ナ", "共", "生", "だ", "ア", "ビ", """, "探"})     '14
chars.AddRange({"み", "エ", "ル", "存", "道", "出", "来", "ば", "手", "伝", "無", "っ", "水", "都"})     '14
chars.AddRange({"ろ", "自", "分", "何", "り", "も", "幸", "晴", "俺", "遠", "质", "ぜ", "私", "ま"})     '14
chars.AddRange({"時", "老", "緒", "へ", "行", "兄", "彼", "女", "守", "ょ", "術", "世", "界", "身"})     '14
chars.AddRange({"他", "方", "法", "異", "端", "者", "や", "血", "争", "ひ", "六", "丈", "夫", "戦"})     '14