ayuda textbox

[fowks]

pero me podrias pasar un ejemplo en codigo como deberia ser por que esta asi lo botones Limpiar y Salir

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

pero me falta lo del boton guardar informacion