Contacts From Worksheet To Outlook

I have been trying to use VB to send contacts from contacts.xls to outlook. I have some code from MSDN that shows me how to put in ONE contact (which is already declared in the code). Well I was thinking of writing something to take a worksheet that has x number of contacts and automating x number of contacts. The problem is, I am familiar with using SQL to pull records, but I was thinking there was something easier like importing the excel namespace. So I decided to try it out this way and found this little tidbit of code which is:

Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = New Excel.Application
xlApp.Visible = False
xlBook = xlApp.Workbooks.Open("contacts.xls")
xlSheet = xlBook.Worksheets(1)

'READ FILE HERE
Dim pXLRange As Object

pXLRange = xlSheet.UsedRange

Dim i = 0
Dim j = 0
For i = 1 To UBound(pXLRange, 1)
For j = 1 To UBound(pXLRange, 2)
Debug.Print(pXLRange(i, j))
Next
Next

It gives me this error for the FOR i=1 to UBound line:

Unable to cast COM object of type 'System.__ComObject' to class type 'System. Array'. Instances of types that represent COM components cannot be cast to types that do not represent COM components; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface.

here's the namespaces i have imported:

Imports Outlook = Microsoft.Office.Interop.Outlook
Imports System.Reflection
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel