 bSupportInstall As Boolean = False, _
        Optional ByVal sInstallMenuText As String = "", _
        Optional ByVal lDefaultIconIndex As Long = -1 _
    )
   ' Check if path is wrapped in quotes:
   sExePath = Trim$(sExePath)
   If (Left$(sExePath, 1) &lt;&gt; """") Then
      sExePath = """" &amp; sExePath
   End If
   If (Right$(sExePath, 1) &lt;&gt; """") Then
      sExePath = sExePath &amp; """"
   End If
    
    ' Create the .File to Class association:
   SectionKey = "." &amp; sAssociation
   Val