I am reading a text file with 5000 strings. Each string contains Date+Time and then 3 values. The delimiter between Date and Time is a space, and then the three values are tab delimited. First string (strData(0)) is just a header, so I do not need that. Last string is just a simple "End". 

The below code works, but it takes 1 minute to import into the worksheet! What can I do to improve this, and what is taking time?  

Screen updating is off.

```
   'open the file and read the contents
    Open strPpName For Binary As #1
    MyData = Space$(LOF(1))
    Get #1, , MyData
    Close #1
    strData() = Split(MyData, vbCrLf)

   'split the data and write into the correct columns
   Row = 3
   i = 0
   For Each wrd In strData()
        If i > 0 Then 'first string is only header
            tmpData() = Split(wrd, vbTab)
            DateString() = Split(tmpData(0), " ")
            If DateString(0) <> "End" Then
                ActiveSheet.Cells(Row, 5) = DateString(0) 'Date
                ActiveSheet.Cells(Row, 6) = DateString(1) 'Time
                ActiveSheet.Cells(Row, 2) = tmpData(1)    'Value1
                ActiveSheet.Cells(Row, 3) = tmpData(2)    'Value2
                ActiveSheet.Cells(Row, 4) = tmpData(3)    'Value3
                Row = Row + 1
            Else
                GoTo Done
            End If
        End If
        i = i + 1
    Next wrd
Done:

```