Spliting coma delimited string running slow.

Hi, I have some data coming through a serial port that gets inserted into separate columns, the whole things looks physically slow, anyone see a problem with the code?

PHP Code: 

Private Sub GetData()

Static Buffer As String
Dim CRLFPos As Integer
Dim MyData As String
Dim arr As Variant
Dim c As Range
 Dim f As Long  ' variable to iterate over the arr

Buffer = Buffer & SComm1.Input 

CRLFPos = InStr(Buffer, vbCrLf)   'use vbCr,(vbCrLf) if only a carriage return is used, but I suspect vbCrLf is correct


If CRLFPos > 0 Then

MyData = Mid(Buffer, 1, CRLFPos - 1)
Buffer = Mid(Buffer, CRLFPos + 2)
SComm1.InputLen = 0

   Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1).Value = MyData

   For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 

        arr = Split(c, ",") ' chr(32) is a space
         For f = LBound(arr) To UBound(arr)
        c.Offset(0, f) = arr(f)

        Next f
    Next c
   

  End If
End Sub 


Application.ScreenUpdating = False ???

Originally Posted by swade730

Application.ScreenUpdating = False ???

A quick test shows a improvement on visible speed, not sure why that should make a difference.