Dim a(0 To 6) As Integer, i As Integer a(0)=1: a(1)=2 For i=2 To 6 a(i)=2 * a(i-1)+ a(i-2) Next i Text1.Text=Str(a(6))