出现此错误“从字符串”找到“转换为键入”长“无效。”

Question

即时通讯在VB 10中制作反病毒程序，但出现此错误“从字符串”删除“转换为键入”长“无效。” 我不知道如何添加更多然后一个字像“病毒”和“删除”我的继承人代码：

If TextBox1.Text.Contains("virus" Or "delete") Then MsgBox("Malicilouse file detected ", 
     MsgBoxStyle.Critical) Else 
    MsgBox("The file(s) are safe") 

可能有人请帮助我！

Answer 1

If TextBox1.Text.Contains("virus") Or TextBox1.Text.Contains("delete") Then MsgBox("Malicilouse file detected ", 
    MsgBoxStyle.Critical) Else 
MsgBox("The file(s) are safe")