テキストボックスに入力した文字の名前でフォルダ名を作りたいのですが、どのようにすればよいのでしょうか？？初心者ですいません（＞＜）

If TextBox1.Modified = False Then
            Dim message As String
            message = "名前を入力してください."
            MsgBox(message, , "ERROR")
MkDir("C:\Documents and Settings\user\デスクトップ\結果ファイル\& message")

の方法ではできなかったので教えていただけないでしょうか？？

> MkDir("C:\Documents and Settings\user\デスクトップ\結果ファイル\& message")
は、
> MkDir("C:\Documents and Settings\user\デスクトップ\結果ファイル\" & message)
では？

＃（）も必要ないかと・・・

> If TextBox1.Modified = False Then
言語は、ここはVB6.0 用の掲示板ですが。


>             Dim message As String
>             message = "名前を入力してください."
>             MsgBox(message, , "ERROR")
> MkDir("C:\Documents and Settings\user\デスクトップ\結果ファイル\& message")
テキストボックスに入力した内容はどこで取得しているのですか？
message には、"名前を入力してください." が入っているようですが。
結果ファイル\& message の部分はパンチミス？ 実際のコード

実際のコードをペーストして見て下さい。
又、こちらのサイトにそれらのTipsもありますで参考にして下さい。

みなさんありがとうございました。
入力保存の方法をInputBox()にすると保存が可能になりました。
ありがとうございました。
無知ですいませんでした。