Dim file As String = Environment.GetEnvironmentVariable("USERPROFILE") _
          + "\NTUSER.DAT"
        Dim HasError As Boolean
        Dim sr As IO.StreamReader
        Dim content As String
        Do
            Try
                HasError = False
                sr = New IO.StreamReader(file)
            Catch ex As Exception
                HasError = True
                sr = Nothing
            End Try
            Application.DoEvents()
            If HasError Then Threading.Thread.Sleep(2000)
        Loop Until Not HasError
        content = sr.ReadToEnd
        sr.Close
        sr = Nothing