Excel VBA ユーザーフォームのテキストボックスで

Excel2000or2003でマクロを作っております。
ユーザーフォームのテキストボックスで、例えば時間を入力するとします。
Private Sub TextBox1_Change()
Worksheets("Work").Range("B3").Value = TextBox1
End Sub
と書いたところ、セルには数値としてではなく文字として入ってしまうようで、後のルーチンで計算できません。
数値として扱うには、どうしたら良いでしょうか？
お手数ですが、ご教授願います。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2007/02/14 00:01

TextBox１.Text

で取れる値は、数字で入力されても文字列の数字です。
文字通りテキストです。
Worksheets("Work").Range("B3").Value = Val(TextBox1）
で済むことでは。Val関数を使う。

この回答へのお礼

早速のご回答ありがとうございます。
Val関数を使ったところ、うまく出来ました。
大変助かりました。

お礼日時：2007/02/14 06:05

No.1 回答者： hana-hana3 回答日時： 2007/02/13 23:15

Worksheets("Work").Range("B3").Value = TextBox1.Value

この回答へのお礼

ANo.2で解決できました。
ありがとうございました。

お礼日時：2007/02/14 06:07