Vb6 – late-binding with COM objects(flexgrid) 2 times slower

[winman]

Public Function gridloop(MSFG1 As Object) As Long
   		For  i= 0 To MSFG1.rows - 1 
    			A = MSFG1.TextMatrix(i,1)
    		Next
End Function

The above code is 2 times slower than below

Public Function gridloop(MSFG1 As MSHFlexGrid) As Long
Public Function gridloop(MSFG1 As MSFlexGrid) As Long

Any solution to speed-up?