I found the funtion in question...
Private Function ReadExcelData() As String(,)
Dim arr(,) As String
Dim EXL As New Excel.Application()
Try
Dim WSheet As New Excel.Worksheet()
WSheet = CType(EXL.Workbooks.Open(Application.StartupPath & _
"\RegistrationsCourse\RegistrationCourses.xls").Worksheets.Item(1), Excel.Worksheet)
EXL.Range("A1:D11").Select()
Dim CData As Excel.Range
CData = CType(EXL.Selection, Excel.Range)
Dim iCol, iRow As Integer
ReDim arr(11, 4)
For iCol = 1 To 4
For iRow = 1 To 11
arr(iRow, iCol) = CType(CData(iRow, iCol).value, String) '<<<< This line
Next
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
EXL.Workbooks.Close()
EXL = Nothing
End Try
Return arr
End Function