dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串，没有"TMD"，
创新互联是一家专业提供中江企业网站建设,专注与成都网站设计、网站制作、外贸营销网站建设、H5建站、小程序制作等业务。10年已为中江众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
还有：if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
Private Sub Command1_Click()
Dim a$, b$
Open "c:\1.txt" For Input As #1 '假设你的文本文件叫1.txt,在C盘
Do While Not EOF(1)
Line Input #1, a
b = b a
Loop
Close #1
Print b '得到的数放在变量b里面,没有换行的.只有数字. 不知道你是这个意思吧
End Sub
这个恐怕有点难度，比如用户输入text.txt，你可能认为text.txt不允许输，但是说不定用户有文件名字命名为text.txt.exe的可执行文件存在，所以要过滤扩展名靠判断.号意义不大
