Vb.net 如何在一行命令中添加多个单词

我正在尝试运行一个函数。当您点击按钮时，如果文本框包含以下文字，它将显示“请不要发誓”。问题是，我试图使用“或”函数将多个文字添加到一行命令中。 由于某种原因，它不起作用。这是我的密码：

If InStr(1, Command.Text, "shit" Or "ass", vbTextCompare) Then
            MsgBox("Please don't swear.")

---

感谢您的帮助！：）

我们不再使用VB6了。我们不要使用

InStr

或

MsgBox

Dim prohibitedWords = {"bad", "word"}

If prohibitedWords.Any(Function(s) TextBox1.Text.IndexOf(s, StringComparison.CurrentCultureIgnoreCase) <> -1) Then
    '...
End If

Dim-prohibitedWords={“坏”、“字”}
如果prohibitedWords.Any（函数TextBox1.Text.IndexOf（函数StringComparison.CurrentCultureIgnoreCase）-1），则
'...
如果结束

我在那里使用了

IndexOf

而不是

Contains

，以允许不区分大小写的比较

---

这其中的一个问题是，它将匹配其他合法词语的一部分。为了避免这种情况，您可能应该使用

Regex

，并且只匹配整个单词。我将留给您来搜索如何做到这一点。

谢谢您的帮助，现在一切正常！对不起，Msgbox，我应该用什么来代替？Messagebox.Show（“text”）？没错。如果您愿意，您可以使用所有这些VB6保留选项，但几乎总是有更好的选项。@PrestonL:如果这个答案解决了您的问题，请按帖子左侧的勾号/复选标记将其标记为已接受。有关更多信息，请参阅：