実際のところをお探しですか？ in excel vba

Question

私は実際のものを見つける必要がありますか？ある範囲の細胞である。私はこのコードを使用しています：

Dim rCell As Range 
    Dim rArea As Range 

' set range variable = Column in the active sheet. 
    Set rCell = Range("g1") 
    Set rArea = Range("g2:g" & countusers) 
    For Each rCell In rArea 
    With rCell 
    Dim Qmark As Integer 
     If InStr(1, (rCell.Value), "~?") > 0 Then 
     MsgBox "Cell " & rCell.Address & "has a question mark in it" 
     Qmark = Qmark + 1 
     End If 

私は〜を疑問符の前に置きますが、機能しません。 ありがとうございました

Answer 1

私はそれを理解しました。私は追加：

Dim SearchChar as String 
SearchChar = "?" 

"〜？" InStr行のSearchCharで動作していました。