Pues bueno, como ni a mí ni a mi core 2 duo nos importa la velocidad y ademas que no tocaba vb6 desde hace mas de 2 años pues seguiré los codigos para ir practicando, no sean tan destructivos
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