I can give you pseudocode that you can translate into VB...
int n1, n2, n3; // Declare three integers
n1 = 1;
n2 = 1; // Initialize first two with 1
do {
n3 = n1 + n2; // Add the 1st two number together to get the next number in the sequence
print "Next number in sequence is ", n3; // Print it
n1 = n2; // Shift forward in the sequence
n2 = n3;
} while ( true ); // Back to top of loop to continue the sequence
The above code will work, until the values of the numbers get big enough that they don't fit into an integer properly.
BTW, You double posted this question into
this thread as well. You should probably edit that other post and title.