ユーザーフォーム 一致するTEXTBOX同士の計算

質問

VBA初心者で始めてユーザーフォームを作成します。

TEXTBOX1がAの時、TEXTBOX4にTEXTBOX1+TEXTBOX2を計算させ、TEXTBOX5にカーソルを移動させる。
TEXTBOX1がA以外の時、TEXTBOX4にTEXTBOX1の値のみ表示させ、コマンドボタン1に移動させたいのです。

どうしたらいいかアドバイスお願いします。

回答No.1

watabe007

'TEXTBOX1がAの時、
　　If Me.TextBox1.Value = A Then
　　　　'TEXTBOX4にTEXTBOX1+ TEXTBOX2を計算させ、
　　　　Me.TextBox4.Value = Val(Me.TextBox1.Value) + Val(Me.TextBox2.Value)
　　　　'TEXTBOX5にカーソルを移動させる。
　　　　Me.TextBox5.SetFocus
　　Else
　　　　'TEXTBOX1がA以外の時、T
　　　　'EXTBOX4にTEXTBOX1の値のみ表示させ、
　　　　Me.TextBox4.Value = Me.TextBox1.Value
　　　　'コマンドボタン1に移動させたいのです。
　　　　Me.CommandButton1.SetFocus
　　End If