どのような条件が満たされないのですか？

Question

条件は正しいですが、最初のメッセージボックスは表示されません。私は何が欠けていますか？

Sub Crr_Premiums() 

    Dim LastRow As Long 
    Dim wb1 As Workbook 
    Dim i As Long 

    Set wb1 = Workbooks("macro all client v.01.xlsm") 

    LastRow = wb1.Sheets("CGIBill").range("A:A").Find("Overall - Total", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 

    For i = 21 To LastRow 

If wb1.Sheets("CGIBill").Cells(i, 16) > "0" And wb1.Sheets("CGIBill").Cells(i, 17) = "0.00" Then 

MsgBox 1 

Else 
MsgBox 2 

End If 

Next i 
End Sub 

Answer 1

"0"と0の間に違いがあります。引用符で囲まれた文字は "0"の文字をチェックしています。引用符のないものは0の数値を探しています。引用符を削除すればよいはずです。