應該是
site=InStr(1, str, "出生")

解决方案 »

  1.   

    Dim SearchString, SearchChar, MyPos
    SearchString ="XXpXXpXXPXXP"   ' String to search in.
    SearchChar = "P"   ' Search for "P".' A textual comparison starting at position 4. Returns 6.
    MyPos = Instr(4, SearchString, SearchChar, 1)   ' A binary comparison starting at position 1. Returns 9.
    MyPos = Instr(1, SearchString, SearchChar, 0)' Comparison is binary by default (last argument is omitted).
    MyPos = Instr(SearchString, SearchChar)   ' Returns 9.MyPos = Instr(1, SearchString, "W")   ' Returns 0.
      

  2.   

    顺序错了
    dim str as string
    dim site as integerstr="1928年出生"
    site=InStr(1,str "出生",)
      

  3.   

    dim str as string
    dim site as integerstr="1928年出生"
    site=InStr(1,str, "出生")