How to script for Fibonacci Series in VB Script

Below is the VB Script for generating Fibonacci Series.

Dim i,j
n=cint(inputbox("Enter Series Value"))
j=0
k=1
for i=1 to n
L=J+K
m=m&L&", "
j=k
k=L
next
msgbox m