Hascons.
The data in the Split array is indexed incorrectly.
Equivalent code:-
Private Sub ImportData(filePath As String, ticker As String)
Dim arrData() As String
Dim MyData As String
Open filePath For Input As #1
With CurrentDb.OpenRecordset("Quotes1")...