I think LINQ can be used as follows to generate the sequences
Dim lb As Integer = 10
Dim ub As Integer = 0
Dim seq = Enumerable.Range(Math.Min(lb, ub), Math.Max(lb, ub) / 2)
Dim seq1 = If(lb > ub, seq.[Select](Function(s) s * 2 + 1).Reverse(), _
seq.[Select](Function(s) s * 2 + 1))
Dim seq2 = If(lb > ub, seq.[Select](Function(s) s * 2 + 2).Reverse(), _
seq.[Select](Function(s) s * 2 + 2))
[Edit]Alternative using
do while loop
added as per the comment of OP [/Edit]
Dim lb = 10
Dim ub = 0
Dim list1 as new List(Of integer)
Dim list2 as new List(Of integer)
Dim inc = IF(lb < ub, 2, -2)
Dim seed1 = IF(lb < ub, 1, 9)
Dim seed2 = IF(lb < ub, 2, 10)
Dim ctr = 0
do while ctr < 5
list1.Add(seed1 + ctr * inc)
list2.Add(seed2 + ctr * inc)
ctr += 1
loop