Private Sub TextBox1_Change()
CommandButton1.Enabled = (TextBox1 <> "") * (TextBox2 <> "") * (TextBox3 <> "")
End Sub
Private Sub TextBox2_Change()
CommandButton1.Enabled = (TextBox1 <> "") * (TextBox2 <> "") * (TextBox3 <> "")
End Sub
Private Sub TextBox3_Change()
CommandButton1.Enabled = (TextBox1 <> "") * (TextBox2 <> "") * (TextBox3 <> "")
End Sub