Private Sub Form_Load()
fi = (1 + Sqr(5)) / 2
n = 1
fn = (fi ^ n - (-fi) ^ (-n)) / Sqr(5)
MsgBox fn
End Sub