>>456
桃白白がクールなコードを教えてあげちゃう。

Function Sum(ByVal lngStart, ByVal lngEnd, ByVal lngStep)
　　If lngStart <= lngEnd Then
　　　　Sum = lngStart + Sum(lngStart + lngStep, lngEnd, lngStep)
　　Else
　　　　Sum = 0
　　End If
End Function