there is not .value case in text boxYou can writeIf text1.text="ASK" thentext2.text=text1.textelsetext2.text=""endifIf TextBox1 = " ASK " ThenTextBox2.Value = " True "ElseTextBox2.Value = " false "End If