diff --git a/Controls.DocumentViewer/DocumentViewer.vb b/Controls.DocumentViewer/DocumentViewer.vb
index ceff7d12..683d63e8 100644
--- a/Controls.DocumentViewer/DocumentViewer.vb
+++ b/Controls.DocumentViewer/DocumentViewer.vb
@@ -30,7 +30,7 @@ Public Class DocumentViewer
 
     Private _hide_file_info_from_user As Boolean = False
     Private _FilePath As String
-
+    Private _Fileinfo As FileInfo
 
     ' List of all created temp files when converting msg files
     Private _TempFiles As New List(Of String)
@@ -80,6 +80,7 @@ Public Class DocumentViewer
 
         Dim oFileLoaded = DoLoadFile(FilePath)
         _FilePath = FilePath
+        _Fileinfo = New FileInfo(FilePath)
 
         If oFileLoaded = True Then
             FileLoaded = True
@@ -129,8 +130,7 @@ Public Class DocumentViewer
             If Len(_FilePath) Then
                 Exit Sub
             End If
-            Dim oFileInfo = New IO.FileInfo(_FilePath)
-            Dim oExtension As String = oFileInfo.Extension.ToUpper
+            Dim oExtension As String = _Fileinfo.Extension.ToUpper
             Select Case oExtension.ToUpper
                 Case ".MSG"
                     RichEditControl1.CreateNewDocument()