Trying to read data from the cells of a pre-existing Excel file

[irishman]

I'm having trouble making this work. I'm trying to open an excel file on the hard drive and read the data that's already in the worksheet. It then plugs the data into some textboxes on the next form. Here's my code for opening and reading the data:

With OpenFileDialog1
.Filter = "XLS files (*.xls)|*.xls|All files (*.*)|*.*"
.FilterIndex = 1
.Title = "Open Template"
End With
OpenFileDialog1.FileName <> "" Then
FilePath=OpenFileDialog1.FileName
Dim xlapp = CreateObject ("Excel.Application")
Dim xlbook as object
Dim xlsheet As Excel.Worksheet
xlbook=xlapp.Workbooks.Open(FilePath)
xlsheet = CType(xlbook.Worksheets(1), Excel.Worksheet)
customername(1) = xlsheet.cells(3, 2)
customeraddress(1) = xlsheet.cells(3, 3)
customerphone(1) = xlsheet.cells(3, 4)
xlsheet = Nothing
xlbook.close(False)
xlbook = Nothing
xlapp=Nothin
End if

[Marraco]

(don't forget to add the reference)

try:

		With OpenFileDialog1
			.Filter = "XLS files (*.xls)|*.xls|All files (*.*)|*.*"
			.FilterIndex = 1
			.Title = "Open Template"
			.ShowDialog() '<-first mistake
		End With
		If OpenFileDialog1.FileName <> "" Then
			FilePath = OpenFileDialog1.FileName
			Dim xlapp = CType(CreateObject("Excel.Application"), Excel.Application)
			Dim xlbook As Excel.Workbook '<-Better for  writting code
			Dim xlsheet As Excel.Worksheet
			xlbook = xlapp.Workbooks.Open(FilePath)
			xlsheet = CType(xlbook.Worksheets(1), Excel.Worksheet)
			customername(1) = xlsheet.Cells(3, 2).value '<-explicit.value
			customeraddress(1) = xlsheet.Cells(3, 3).value
			customerphone(1) = xlsheet.Cells(3, 4).value
			xlsheet = Nothing
			xlbook.close(False)
			xlbook = Nothing
			xlapp = Nothing
		End If