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
 

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
 

Function robEuler2() As Long
    Dim f1 As Long, f2 As Long, contador As Long, resultado As Long, suma As Long
    f1 = 0
    f2 = 1
    resultado = f1 + f2
    Do While suma < 4000000
        f1 = f2 + resultado
        resultado = f2
        f2 = f1
        contador = contador + 1
        If f2 Mod 2 = 0 Then
            suma = suma + f2
        End If
    Loop
    robEuler2 = suma
End Function 

Private Static Function Psk1_PE2(Optional lLimit As Long = &H3D0900) As Long
Dim Q1 As Long
Dim Q2 As Long
Dim Q3 As Long
 
    If lLimit And &H80000000 Then Exit Function
 
    Q1 = &H1
    Q2 = &H1
    Q3 = &H2
 
    Do While Q3 < lLimit
        Psk1_PE2 = Psk1_PE2 + Q3
 
        Q1 = Q2 + Q3
        Q2 = Q1 + Q3
        Q3 = Q2 + Q1
    Loop
End Function