2行4列记录开奖结果，我想求一下单双。Sub 求和值单双()

2行4列记录开奖结果，我想求一下单双。
Sub 求和值单双()
i = 2
Do While True
str1 = Cells(i, 4)
If Len(str1) = 0 Then Exit Do Else If str1 Mod 2 > 0 Then Cells(i, 12) = "单" Else Cells(i, 12) = "双"
i = i + 1
Loop
End Sub
却显示数据类型不匹配……大佬们，给看看。