Dim a(1 To 5)As Integer
a(1)=1 : a(2)=2
For i=3 To 5
a(i)=a(1)
For j=i-1 To 2 Step -1
a(j)=a(j)+a(j-1)
Next j
Next i
Text1.Text=Str(a(3))