Sub ReadLicFile()
         '## Definitions ## 
        Dim strLF As String
        Dim strLineType As String
       
         '## Code ## 

        strLF = "d:\test\lf.dat"
        objSR = New StreamReader(strLF)
        strLine = objSR.ReadLine

        Do While Not strLine Is Nothing
            strLine = objSR.ReadLine
                If strLine.Length >  0  Then
                    Do While strLine.EndsWith("\")
                        strLine = Replace(strLine, "\", "")
                        Dim strLineNext As String
                        strLineNext = objSR.ReadLine()
                        strLine = Trim(strLine) & " " & LTrim(strLineNext)
                    Loop
                    If strLine.StartsWith("#") Then
                        Call ReadCommentLine()
                    ElseIf strLine.StartsWith("SERVER") Then
                        Call ReadServerLine()
                    .........                    
                    End If
                End If

        Loop

        objSR.Close()
    End Sub

If strLine.Length >  0  Then

 If strLine.Length >  0  Then

  'If strLine.Length > 0 Then 
 If Not strLine Is Nothing Then