Dim broj1, broj2 As Integer
WriteLine("Upiši prvi broj")
WriteLine("Upiši drugi broj")
If broj1 > 0 And broj2 > 0 And broj2 > broj1 Then
For i = (broj1 + 1) To (broj2 - 1)
ElseIf broj1 > 0 And broj2 > 0 And broj1 > broj2 Then
For i = (broj2 + 1) To (broj1 - 1)