'take a textbox(txtno) and a commandbutton(command1)
Private Sub Command1_Click()
Dim no, s, t, t1, i As Integer
no = Val(Trim(txtno.Text))
t = 1
t1 = 1
s = 0
i = 1
lstseries.Clear
lstseries.AddItem t
lstseries.AddItem t1
Do Until i > no - 2
s = t + t1
t = t1
t1 = s
lstseries.AddItem s
i = i + 1
Loop
End Sub