Como no organices mejor el código no nos vamos a enterar de nada. No abuses tanto de los ":".

Y te informo que haciendo esto:

Código

Dim a, b, c As Long

Sólo declaras la última variable como Long, las otras, como no has puesto nada, por defecto serían Variant, que ocupa memoria innecesariamente.
Sería así:

Código

Dim a As Long, b As Long, c As Long

DoEvents!

Private Sub Form_Load()
Dim x, y As Long
x = 4613732
MsgBox (VarType(y) = vbLong)
End Sub
 

Private Function Fibonacci() As Long
Dim a As Long, b As Long, c As Long, x As Long: x = &H4
a = 0
b = 0
c = 0
a = (a * x) + 2: Fibonacci = Fibonacci + a: b = a: a = (a * x): Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a: b = a: a = (a * x) + c: Fibonacci = Fibonacci + a: c = a: a = (a * x) + b: Fibonacci = Fibonacci + a:
end Function
 

Function mul_3_5(numero As Long) As Long
Dim a, b, c, d, e, f, g, i As Integer
a = 3
b = 2
c = 1
d = 3
e = 1
f = 2
g = 3
i = 0
While i < numero
i = i + a
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + b
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + c
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + d
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + e
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + f
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
i = i + g
mul_3_5 = mul_3_5 + i
If i = numero - 1 Then Exit Function
Wend
 
End Function

@Danyfirex

Código:

http://code.google.com/p/projecteuler-solutions/wiki/ProjectEulerSolutions

Ahí está el resultado de todas las soluciones.

DoEvents!

Function mul_3_5(numero As Long) As Long
Dim i As Integer
For i = 0 To numero - 1
If (i Mod 3) = 0 Or (i Mod 5) = 0 Then mul_3_5 = mul_3_5 + i
Next i
End Function

Dim ct As New CTiming
Private Sub Form_Load()
Form1.Show
MsgBox "empezara luego del ok"
ct.Reset
For x = 1 To 10000
Call mul5and3below1000
Next
Form1.Print "Tiempo 7913 -->" & ct.sElapsed
Form1.Print "Resultado 7913 -->" & mul5and3below1000()
ct.Reset
For x = 1 To 10000
Call mul_3_5
Next
Form1.Print "Tiempo dany -->" & ct.sElapsed
Form1.Print "Resultado dany -->" & mul_3_5()
End Sub
 
 
Private Function mul5and3below1000() As Long
    Dim ct As Long
    Dim aux As Long
    Do
        mul5and3below1000 = mul5and3below1000 + aux + aux2
        ct = ct + 1
        aux = ct + ct + ct
        aux2 = ct + ct + ct + ct + ct
    Loop While aux2 < 1000
    Do
        mul5and3below1000 = mul5and3below1000 + aux
        ct = ct + 1
        aux = ct + ct + ct
    Loop While aux < 1000
    ct = 0
    aux = 0
    Do
        mul5and3below1000 = mul5and3below1000 - aux
        ct = ct + 1
        aux = ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct
    Loop While aux < 1000
End Function
 
Function mul_3_5() As Long
Dim i As Integer
For i = 1 To 999
If (i Mod 3) < 1 Or (i Mod 5) < 1 Then
mul_3_5 = mul_3_5 + i
End If
Next i
End Function