Visual Basic - ayuda urgente proyecto

Hola a todos,
Estoy realizando un proyecto en Visual Basic 6.0 y tengo una duda, os explico, en el formulario tengo una caja de texto donde aparece un numero de expediente, mi duda viene, cuando al darle a un botón Alta tengo que crear una carpeta en mi unidad D: que se llame como el numero de expediente que tengo en la caja de texto. Claro yo creo con MkDir (D:\Mis Documentos\Expedientes\(y aqui debe aparecer el numero de expediente)) pero por muchas variables que recoja ese numero no lo puedo llevar al Mkdir.
Yo tengo una carpeta general llamada Expedientes y dentro de ella tengo tantas carpetas como expedientes halla dado de alta. Cada carpeta se llama = numero de expediente. Estos numeros se generan automáticamente.
¿Sabríais la solución de ello?
Muchas Gracias,
Mari Carmen

Intenta con este codigo:

Private Sub Command1_Click()
Set fso = CreateObject("scripting.filesystemobject")
fso.createfolder "d:\expedientes\" & Text1
End Sub

Muchas gracias por tu ayuda, funciona correctamente.

Private Sub Command1_Click()
MkDir ("D:\Expediente\" & Text1.Text)
End Sub