Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) ThenKeyAscii = 0End IfText2.Text = StrReverse(Text1.Text)End Sub