「Math.」を付けるのが面倒なので、付けなくてもいいように改良しました。(^_^; Button1_Click()をちょっと書き直して、Accept(),IsAlNum2(),SplitTok()関数を新設しました。 Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.…