Как создать список с определенным диапазоном чисел

Question

Dim myList As New List(Of Integer)(New Integer() {1001, 1006, 1011, 1016, 1021, 1026, 1031, 1036, 1041, 1046, 1051, 1056, 1061, 1066, 1071})

Как мне уменьшить код выше?