Bucle Do Until ... Loop

Buenos Días compañeros:

Como puedo optimizar la siguiente funcion?? si omito el primer IF del
bucle
DO, me da un error al llegar a la ultima linea del fichero de texto.

Private Function AnalizarFicheroLog()
Dim ArchivoLog As StreamReader
Dim FicheroLog As String 'Donde guardaremos el nombre del fichero
del log
Dim LineaLog As String
Dim contador As Int32
contador = 0
'FicheroLog = "U:" & RutaLog & "\" & Trim(ComponerNbFichero)
FicheroLog = "C:\20041020.log"
ArchivoLog = File.OpenText(FicheroLog)
Do
LineaLog = ArchivoLog.ReadLine()
' analizar linea requerida
contador = contador + 1
If LineaLog Is Nothing Then
Exit Do
End If
If LineaLog.IndexOf("assigned") > -1 Then
DescomponerLinea(LineaLog)
End If
Loop Until LineaLog Is Nothing
ArchivoLog.Close()
End Function


gracias