Code:
My.Computer.FileSystem.WriteAllText("TheFile.txt", textbox1.text, False)
small one