漢字かどうかを判定するFunction まじめに手直しした。 元のコード コチラが、元のisKanjiメソッドのコード。 リスト１ Public Function isKanji(ByVal targetCharacter As String) As Boolean Dim char As String char = targetCharacter If Len(char) <> 1…