Excel - Insertar firma outlook vba

SigString = "C:\Herramientas\Envio Mail\Firma.htm"

If Dir(SigString) <> "" Then

    Signature = GetBoiler(SigString)

Else

    Signature = ""

End If

Function Extrae_Nombre_Firma(ByVal sFile As String) As String

    Dim fso As Object

    Dim ts As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)

    Extrae_Nombre_Firma = ts.readall

    ts.Close

End Function