Try
            Dim fsi As New FileStream("debug.log", FileMode.Open, _
              FileAccess.Read, FileShare.Write)
            Dim sr As New StreamReader(fsi)
            ' ...
            sr.Close()
        Catch ex As Exception
            ' ...
        End Try