求3到200之间所有非偶数且非素数的数之和,不知道哪里编错了

求3到200之间所有非偶数且非素数的数之和,不知道哪里编错了
Private Sub Command1_Click()
s = 0
For a = 3 To 200 Step 2
For b = 2 To a - 1
If a Mod b = 0 Then s = s + a
Next b
Next a
Print s
end sub

Dim a As Integer,b As Integer
Dim s As Integer
s = 0
For a = 3 To 200 Step 2
For b = 3 To a - 1
If a Mod b = 0 Then s = s + a
Next b
Next a
Debug.Print s
这样写,会好一点

这个问题我还想问问老师呢