Need VBA Sub for Transposing Data in Columns to Rows

I have a data file representing a list of orders along with products associated with those orders. The original data looked something like this:

Order# | Product
CD-23996 | 01. Database 02. Application 03. Middleware
CD-23796 | 01. Internet Developer Suite 02. Programmer 03. Real Application Clusters 04. RAC Enterprise Edition
CD-24117 | 01. Standard Edition 02. Application Server


I inserted commas between the products and used text to columns on the source data to get something like this:

Order# | Product1 | Product2 | Product3 | Product4
CD-23996 | 01. Database | 02. Application | 03. Middleware
CD-23796 | 01. Internet Developer Suite | 02. Programmer | 03. Real Application Clusters | 04. RAC Enterprise Edition
CD-24117 | 01. Standard Edition | 02. Application Server

Now I'm looking for some VBA code I can run that creates rows for each of the products broken out per order # given. So the output should look something like this:

Order# | Product
CD-23996 | 01. Database
CD-23996 | 02. Application
CD-23996 | 03. Middleware
CD-23796 | 01. Internet Developer Suite
CD-23796 | 02. Programmer
CD-23796 | 03. Real Application Clusters
CD-23796 | 04. RAC Enterprise Edition
CD-24117 | 01. Standard Edition
CD-24117 | 02. Application Server

Would really appreciate the help!