dim i as integer
For i=0 To 500 Step 4  'ich gehe davon aus, dass du bei Null startest
  if sLine(0,i)=0 then ' dann ist ende
    Exit For
  End If
Next i
msgbox str((i-4)/4) & " Datenblöcke sind belegt"

____________________________
Heimschmiede.de.vu