>As per Bonnie Split() will be quicker. So (if s is the string):

Function MLine(ByVal line As Integer, ByRef cLine As String) As Boolean
>         Dim array As String() = s.Split(ControlChars.Cr)
>        If line > array.Length Then
>            cLine = String.Empty
>            Return False
>        Else
>            cLine = array(line)
>            Return True
>        End If
>    End Function

(maybe needs a check for negative line)

Thanks, this has helped to fine tune the code.