dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串，没有"TMD"，
10年积累的做网站、网站设计经验，可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你，你也不认识我。但先做网站后付款的网站建设流程，更有合川免费网站建设让你可以放心的选择与我们合作。
还有：if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
合法性校验有很多方法，要视情况而定，比如说可以用正则表达式，如果是数字，除了正则表达式，也可以用诸如TryParse这种方法。
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then '判断是否为数字
e.Handled = True ‘如果不是数字，取消操作，不显示字符
End If
End Sub
End Class
这样就好啦
不用这个应该使用重载Form的ProcessCmdKey，假如我们处理的是textBox1如下： Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
If Not TextBox1.Focused Then Return False '焦点不在指定文本框上，不处理
If keyData = Keys.A And keyData = Keys.Z Then '是字母，还不知道是否是大小写
If IsKeyLocked(Keys.CapsLock) Then '大写锁定
Return Not CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift没锁定（即是大写）要过滤，返回TRUE;
Else
Return CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift锁定（即是大写）要过滤，返回TRUE;
End If
ElseIf keyData = Keys.Back Or keyData = Keys.Delete Then '还有允许的其它键
Return False
End If
Return True '剩余的键都过滤掉
End Function
