うまく実現できません(>_<) (ID:79865)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いま、テキストボックス1に入力された値が ①1〜8の場合にEnterキーを押したらテキストボックス2に移動 ②9以上または0の場合にEnterキーを押したらメッセージを表示、テキストボックス1はクリア ③未入力の場合にEnterキーを押したら3を表示して、テキストボックス2へ移動 というようにしたいのですが、なぜかできません。 どなたかアドバイスをください(>_<) 問題のソースが以下のものです。よろしくお願いします。 Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown If e.KeyCode = Keys.Enter Then If TextBox1.Text = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Then TextBox2.Focus() Exit Sub ElseIf TextBox1.Text = "9" Then MsgBox("議案数は8議案以内です。", MsgBoxStyle.Exclamation) TextBox1.Clear() TextBox1.Focus() Exit Sub ElseIf TextBox1.Text = "0" Then MsgBox("議案数を入力してください。", MsgBoxStyle.Exclamation) TextBox1.Clear() TextBox1.Focus() Exit Sub ElseIf Val(TextBox1.Text) = "" Then TextBox1.Text = "3" TextBox2.Focus() Exit Sub End If End If End Sub