me imgino que lo que quieres hacer es que lo que se halla digitado en el textbox (Caja de texto) se almacene en un archivo o BD...

Lo que deberias hacer ademas es agregar un Boton de comando (Commandbuton) para que al terminar de escribir en el textbox el usuario pueda oprimir este para indicar que se debe almacenar el texto.
Twengo esta funcion que podrias modificar para hacer lo demas...
Dim Fs, a, NameFile
NameFile="C:/carpeta/archivo.txt"
Set Fs = CreateObject("Scripting.FileSystemObject")
Set a = Fs.CreateTextFile(NameFile, True)
a.WriteLine (textbox1.text) //asigno al archivo el contenido del textbox
a.Close
Set Fs = Nothing
Set a = Nothing
esto lo colocas dentro del evento click del commandbuton (Para hacer esto haz doble click sobre el boton en tiempo de diseño
