Use the Mod Function to determine if input number is odd or not.
If not, add 1 to number.
Use for loop from 1 to 15 and a variable that is incremented by two with each iteration of the loop.
Take the value from the variable and concatinate into a string variable or textbox, or use the additem method of a list box to display.

Read my reply line by line, sentence by sentence and you will have your answer as you code it up. Then as debasisdas said, if you have any problems with what you have created, then post it with where and what the error is.

Well thanks everyone. I managed to solve it myself.
So here is how I did it:

Private Sub Command1_Click()
Dim x As Integer
x = Val(Text1.Text)
If x Mod 2 = 0 Then
x = x + 1
For i = 1 To 15
Print x
x = x + 2
Next i
Else
x = x + 2
For i = 1 To 15
Print x
x = x + 2
Next i
End If
End Sub