ExcelVBAマクロでテキストボックスの値の代入

ExcelVBAマクロについて確認させてください。
下記のように読み込みたいファイルをフォームで指定して
それを変数aに読み込ませています。
この方法の他に、ユーザーフォームでテキストボックスを
作成してテキストボックス内で文字を記入してその文字を
変数aに読み込ませることは可能でしょうか。
可能であればその方法をぜひご教授ください。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub sample()

Dim buf As String
Dim a As String

buf = Application.GetOpenFilename(FileFilter:="テキスト文書,*.txt", Title:="サンプル") 'フルパスも含めたファイル名をbufに代入

With CreateObject("Scripting.FileSystemObject").GetFile(buf).OpenAsTextStream'指定したファイルを開く
　　　　a = .ReadAll'テキスト文書の内容を文字列aに代入
　　　　.Close'指定したファイルを閉じる
End With

End Sub

No.1 ベストアンサー 回答者： x-1919 回答日時： 2012/06/02 01:05

> この方法の他に、ユーザーフォームでテキストボックスを

> 作成してテキストボックス内で文字を記入してその文字を
> 変数aに読み込ませることは可能でしょうか。

何を聞きたいのかサッパリだ。
「この方法の他に」 の 「この方法」 が指しているのは 「テキスト ファイルの中身を変数 a に読み込む方法」 だろ？
で、質問したいのは 「テキスト ボックスの値を変数 a に読み込む方法」 だろ？
テキスト ファイルのくだりは関係あんの？

a = textbox1.text
っていう回答で合ってんの？

この回答へのお礼

ご返事が遅くなり、申し訳ございません。
ご助言ありがとうございます。
ご助言の通り、試行してみましたところ、
うまく実行出来ました。

このたびは本当にありがとうございました。

お礼日時：2012/06/20 00:30