Creating a Non-Contiguous Range

I am trying to create a non-contiguous range in VB. I have the cartesian
coordinates of the cells I want included into this range. If my biggest
concern is the code being optimized for speed, how do I do this?

ie

I want to create a range on a single row, and I want
this range to include the cells at column 1, 3, 5, 7

Somehow I need to get from these row/column coordinates

(1,1), (1,3), (1, 5), (1,7)

to

Range(????)

and it has to be done as quickly as possible.
Any ideas????

jr