string2可不可以为双引号（"）？ 如果能，怎么设置？

Question

InStr([start, ]string1, string2[, compare]) 

Answer 1

可以，输入代码设置。

代码：

Sub 示例_1_18()

Dim bssString, yczChar, wz

bssString ="ABpAApCDPBBP"

yczChar = "P"

MsgBox "bssString = "" ABpAApCDPBBP """ & Chr(10) & _

"yczChar= ""P"" 时： " & Chr(10) & Chr(10) & _

"InStr(4, bssString, yczChar, 1) 返回值为 " & _

InStr(4, bssString, yczChar, 1)

wz = Instr(1, bssString, yczChar, 0)

wz = Instr(bssString,yczChar) ' 返回 9。

wz = Instr(1, bssString, "W") ' 返回 0。

Answer 2

完全可以，有两种方法。
1.instr(start,string1,"""") '一定是四个双引号
2.instr(start,string1,chr(34)) '双引号的Ascii是34，所以可以这样写

Answer 3

inStr(3,"x5ydscdsx","d",1)=4'即是从字符串"x5ydscdsx"第3个位置找字符串"d"第一次出现的位置,执行的是文本比较。返回值为4 

Private Sub Form_Click() 
x = InStr(3, "x5ydscdsx", "d", 1) 
Print x 
End Sub 

不要说好像，自己要做做看