If StrLength(TextBox1.Text) < 2 Then 'Ignore keyboard. TextBox1.Text = "" ReturnEnd IfForm1.Text = TextBox1.TextTextBox1.Text = ""