Visual Basic なんだけど、
Sub ex2()
Dim x As Integer, s As Integer
s = 0
For x = 1 To 100
s = s + x
Next x
If x Mod 2 Then

End If
MsgBox "合計=" & s
End Sub

ってのに奇数だけの和を求められるようにするにはどう変形すればよいですか？