Vb.net 根据文本中的特定单词删除整行

我有一个工作表有这个范围

For Row = 1 To me.Rows.Count
    If xlWsheet5.Range("C" & row).Value = "France" Then
        xlWsheet5.Range("C" & row).EntireRow.Delete()
    End If
Next

范围C包含如下文本：“这是法国”

一旦检测到单词“France”，则删除整行

我尝试了上面的代码，但没有成功

注意：我正在使用vb.net。如果可能，请发布vb.net解决方案

尝试更改：

If xlWsheet5.Range("C" & row).Value = "France" Then

致：

InStr方法检查该值是否出现在单元格中，是否与单元格中的其他文本无关

---

编辑

我试过了，但出现了一个错误（无法将其转换为数字），我不得不删除str，效果很好。删除行后如何向上移动？我尝试了这个方法，但没有成功xlWsheet2.Range（“C”和row）.EntireRow.Delete（Excel.XlDeleteShiftDirection.xlShiftUp）“它没有成功”不是一条有用的错误消息。请说得更具体些。你提供的代码我必须去掉Str才能工作。但我的另一个问题是，一旦删除该行，它就不会向上移动。我尝试了这个xlWsheet2.Range（“C”和row）.EntireRow.Delete（Excel.XlDeleteShiftDirection.xlShiftUp）

If InStr(xlWsheet5.Range("C" & row).Value,"France")>0 Then