Code: Textbox1.Text = "" or Add this to your code Code: Private Sub ClearTextBoxes() TextBox1.Text = "" End Sub then in the triggered event ClearTextBoxes() Which will clear text box 1 You can add more text boxes to that sub So this Code: Private Sub ClearTextBoxes() TextBox1.Text = "" TextBox2.Text = "" End Sub ClearTextBoxes() will clear textbox 1 and 2