VBA，如果字符串包含某个字母

我通常不与VBA我无法弄清楚这一点。我试图确定电子表格上的字符串中是否包含某个字母。

Private Sub CommandButton1_Click()
Dim myString As String
RowCount = WorksheetFunction.CountA(Range("A:A"))
MsgBox RowCount
For i = 2 To RowCount
    myString = Trim(Cells(i, 1).Value)
    If myString.Contains("A") Then
        oldStr = Cells(i, 15).Value
        newStr = Left(oldStr, oldStr.IndexOf("A"))
    End If
Next          
End Sub

这段代码应该遍历一个值列表，如果遇到字母 A 则删除它及其后面的所有内容。我遇到了问题IF声明，无效限定符。我怎样才能让我的IF语句输出单元格中的String是否包含字母A？

非常感谢

尝试使用 InStr 函数，该函数返回在字符串中找到该字符的索引。如果 InStr 返回 0，则表示未找到该字符串。

If InStr(myString, "A") > 0 Then

InStr MSDN 网站 http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.90%29.aspx

对于分配给 newStr 的行上的错误，也将 oldStr.IndexOf 转换为该 InStr 函数。

Left(oldStr, InStr(oldStr, "A"))