Public Sub svuota(ByVal valore1 As TextBox, ByVal valore2 As TextBox, ByVal valore3 As TextBox)
        valore1.Text = ""
        valore2.Text = ""
        valore3.Text = ""
    End Sub

 svuota(TextBox1, TextBox2, TextBox3)