Try
         Dim SourceFileStream As New StreamReader(Source)
         '...
      Catch
         Return False
      End Try

Private Sub MyApplication_UnhandledException(sender As Object, e As _
  Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) _
  Handles Me.UnhandledException
'...
End Sub