刈谷勇さん、お返事ありがとうございます。

今日一応直してみました。
ValidatedとValidatingで、どうにかボタンもきくようにはなりました。

しかし、今度は
If SJIS.GetByteCount(Me.Controls(textname).Text) Then
の部分で、
１つ以上飛ばして（TextBox1→TextBox3など）、確認ボタンを２回押すと
１回目はエラー表示されて、問題個所にフォーカスがうつるのですが、２回目だと
「オブジェクト参照がオブジェクト インスタンスに設定されていません。」
とでてしまいます。

これはテキストボックスをNewすればいいのですか・・・？