se

[vba]
Dim HistoryDir As String
UserForm3.Show

HistoryDir = UserForm3.Textbox1.Value
MkDir "K:\History\" & HistoryDir
[/vba]

but make sure that your form is not unloaded, but just hidden whenyou exit