diff --git a/remoteapp-tool/LocalFtaModule.vb b/remoteapp-tool/LocalFtaModule.vb
index 7930383..7be9895 100644
--- a/remoteapp-tool/LocalFtaModule.vb
+++ b/remoteapp-tool/LocalFtaModule.vb
@@ -102,15 +102,15 @@ Module LocalFtaModule
     Public Function DoesFTAExist(fileExtension As String) As Boolean
         fileExtension = fileExtension.TrimStart(".")
         Dim FTAexists As Boolean = False
-        Dim HKCRext As String = ""
-        Try
-            HKCRext = My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension).ToString
+
+        If Not (My.Computer.Registry.ClassesRoot().OpenSubKey("." & fileExtension) Is Nothing) Then
             FTAexists = True
-        Catch ex As Exception
-        End Try
+        End If
+
         Return FTAexists
     End Function
 
+
     Public Function IsFTAMine(fileExtension As String) As Boolean
         fileExtension = fileExtension.TrimStart(".")
         IsFTAMine = False