vb 截取字符串判断,该如何解决

vb 截取字符串判断
 If Trim(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")) = ""
 or _
        left(Trim(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")),2) = "92" _
              Then
                    'Item is blank
                    ThisForm.GenerateEvent("msgItemIsBlank")

红色那两行是我加的    想让item前两位是92的也做出不为空提示    但是好像我加的那句不起作用   大家看看是不是写错了
------解决方案--------------------
If Trim(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")) = ""
 and 
        left(Trim(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")),2) = "92" _
------解决方案--------------------
 Trim(ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")) <> ""
------解决方案--------------------
用STRX.Substring()试试。
------解决方案--------------------
看看你的ThisForm.PrimaryIDOCollection.GetCurrentObjectProperty("Item")是不是null?