Searching For Numeric Value Greater Than 3

I have a macro which does a check on certain fields to see if any are greater than the value 3. The cells are in the same column, but goes 33 rows down from the starting point. If it finds it, a messagebox appears to the user. It works fine if it finds values 4 through 9,but does not work with values greater than 9. (I have had data with values of 17 and 22 to test) I first checked the cell types to make sure everything was the same, and it is. Below is my coding, do I have to add something infront of the Value property?

'I have selected the cell where I need to start from
For Each i In Range(ActiveCell, ActiveCell.Offset(33, 0))
If i.Value > "3" Then
MsgBox ("Pieces per shipment is greater than 3." _
& Chr(13) & "It's value is " & "'" & i.Value & "'" & " found in cell: " & i.Address _
& Chr(13) & ". Profile must go to Finance for review")
End If
Next i