ｴｸｾﾙVBAﾏｸﾛを教えてください｡(ｴｸｾﾙ2003使用です) ｴｸｾﾙVBAﾏｸﾛ CheckBox1のﾁｪｯｸがOFFで値がfalseになった時､TEXTBOX1にｶｰｿﾙが自動的に移動し…

ｴｸｾﾙVBAﾏｸﾛを教えてください｡(ｴｸｾﾙ2003使用です)

ｴｸｾﾙVBAﾏｸﾛ

CheckBox1のﾁｪｯｸがOFFで値がfalseになった時､TEXTBOX1にｶｰｿﾙが自動的に移動し､
そしてTEXTBOX1内のﾃﾞｰﾀ(数値)をｸﾘｱして､ﾃﾞｰﾀ入力待ち(0-9.)の状態になる｡

数値入力後ｴﾝﾀｰｷｰを押すと､commandbox1上にｶｰｿﾙが自動移動する｡
数値入力せずにｴﾝﾀｰｷｰを押すと､自動的に0.5が入力され､commandbox1上にｶｰｿﾙが自動移動する｡

CheckBox1のﾁｪｯｸがONで値かtureの時､TEXTBOX1は､入力不可｡

と動作させたいと考えております｡

ﾕｰｻﾞﾌｫｰﾑ上でのCheckBox1,TEXTBOX1,commandbox1ではなく､
ｴｸｾﾙのﾜｰｸｼｰﾄ上にｺﾝﾄﾛｰﾙﾂｰﾙﾎﾞｯｸｽからCheckBox1,TEXTBOX1,
commandbox1を貼り付けた状態です｡

上述の動作をさせる為のｴｸｾﾙVBAﾏｸﾛを教えてください｡(ｴｸｾﾙ2003使用です)

どのﾀｲﾐﾝｸﾞで何をやりたいのかがわからなかったのでｽﾙｰしてたのですが､
ｷｬﾝｾﾙして質問文作り直しされたので､ﾊﾟｽﾞﾙがてらやってみました

Private Sub CheckBox1_Click()
 With TextBox1
 If CheckBox1 = True Then
 .Enabled = True: 'ﾃｷｽﾄﾎﾞｯｸｽを有効化
 .Value = "": 'ﾃｷｽﾄﾎﾞｯｸｽを空っぽに
 .BackColor = &HC0FFC0: '背景色を元の色に
 .Activate
 Else
 .Enabled = False: 'ﾃｷｽﾄﾎﾞｯｸｽを無効化
 .BackColor = &HC0C0C0: '判りやすいように背景をｸﾞﾚｰに
 End If
 End With
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyCode As MSForms.ReturnInteger)
  ' 数値と小数点以外の文字は無効化するための処理
 If KeyCode >= 48 And KeyCode <= 57 Then
  ' 0-9
 ElseIf KeyCode = 46 And InStr(TextBox1.Value, ".") = 0 Then
  ' 小数点
 Else
  ' その他のｷｰ
 KeyCode = 0
 End If
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  ' Enterｷｰの判定はこちらで行う
 If KeyCode = 13 Then
 CommandButton1.Activate
 End If
End Sub

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 MsgBox "CommandButton1が押されたよ" & vbCrLf & "値は[" & TextBox1.Value & "]だね"
End Sub