Dim Fastest As Integer   'Integer is fastest.
For Fastest = 0 to 100000
	' Statements to execute for each value of Fastest.
Next Fastest

Dim NotAsFast As Long   'Long is not as fast.
For NotAsFast = 0 to 100000
	'Statements to execute for each value of NotAsFast.
Next NotAsFast

Dim MuchSlower As Decimal   'Decimal is slower.
For MuchSlower = 0 to 100000
	'Statements to execute for each value of MuchSlower.
Next MuchSlower

Microsoft MSDN