Validasi Textbox

'Dalam contoh ini, kursor tidak akan dapat _
keluar dari 'textbox, sampai user mengetik: _
"abc". Untuk memeriksa 'coding ini, coba _
klik pada tombol atau enter textbox 'yang kedua.

-1 Textbox dan 1 CommandButton
------------------------------------------------

Private Sub Text1_Validate(Cancel As Boolean)
Cancel = Text1.Text <> "abc"
End Sub