Public Function Subre_GUIA(nombreArchivo As String) As Integer
    Dim sftp As New ChilkatSFtp
    Dim success As Long
    Dim clave As String
    
    success = sftp.UnlockComponent("TALMAS.SS1122018_6FYzL2ydm7mF")

    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    sftp.ConnectTimeoutMs = 5000
    sftp.IdleTimeoutMs = 10000

    success = sftp.Connect(gIPFTP_Guia, gPuertoFTP_Guia)
    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    ' Leer el contenido del archivo KEY y usarlo como clave
    clave = LeerContenidoArchivo("ruta_del_archivo.key")

    success = sftp.AuthenticatePw(gUsuarioFTP_Guia, clave)

    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    success = sftp.InitializeSftp()
    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    success = sftp.UploadFileByName("IN/" & nombreArchivo & ".txt", App.Path + "\IN\" & nombreArchivo & ".txt")
    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    sftp.Disconnect

    If (success <> 1) Then
        Subre_GUIA = 1
        Exit Function
    End If

    Subre_GUIA = 0

End Function

Function LeerContenidoArchivo(rutaArchivo As String) As String
    Dim fso As Object
    Dim archivo As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set archivo = fso.OpenTextFile(rutaArchivo)
    LeerContenidoArchivo = archivo.ReadAll
    archivo.Close
    Set archivo = Nothing
    Set fso = Nothing
End Function