Visual Basic - Abrir archivo alojado en ftp://

Private Sub CommandButtton_1()

Shell "explorer " & "ftp://192.168.30.21/usb1/trend/Gra_HR/", vbNormalFocus

End Sub

' El contenido del Arhivo TXT  llamado FILESX.TXT

'Aqui se podria hacer que tu proceso genere este archivo txt y lo actualice para poner parametros como la fecha si la necesitas 

lcd C:\Carpeta\vbleo\Procesos\Descarga\  'Esta es la ruta local donde van a estar los archivos 

cd REPOSITORIO   ' esta linea ve Si es que dentro del sftp existe un directorio adicional si es en raiz no pongas

mget Archivos*201908*.TXT  ' Este es un comando para obtener MUCHOS archivos que cumplan con ese nombre.

get Archivo.txt  ' Este es un comando para obtener 1 archivo que cumpla exactamente con el nombre

'PSFTP es el putty.exe  que esta en la misma ruta de mi ejecutable esta es como se llama 

Sub decargasftp()

    'Elcomando = App.Path & "\Psftp 192.168.168.2 -l AquiElUsuario -pw AquivaLaClave -b " & App.Path & "\Archivo.txt"

     Elcomando = App.Path & "\Psftp 192.168.168.2 -l aguerrero -pw Aga1234 -b " & App.Path & "\FilesX.txt"

    EjecutaComandoMSDOS(Elcomando)

End Sub

'El que ejecuta el 

'Un procedimiento para ejecutar y esperar a que termine

Public Sub EjecutaComandoMSDOS(ByVal CmdLine As String)

    'Esperar a que un proceso termine,

    'la ventana se mostrará minimizada sin foco

    Dim hProcess As Long

    Dim RetVal As Long

    On Error GoTo tg_ERROR

    'The next line launches CmdLine as icon,

    'captures process ID

    'MsgBox CmdLine

    'hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _

    '        Shell(CmdLine, vbMinimizedNoFocus))

    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, _

            Shell(CmdLine, vbMinimizedNoFocus))

    Do

        'Get the status of the process

        GetExitCodeProcess hProcess, RetVal

        'Sleep command recommended as well

        'as DoEvents

        DoEvents

            Sleep 100

    Loop While RetVal = STILL_ACTIVE

    Exit Sub

tg_ERROR:

    MsgBox Str$(Err.Number) & " - " & Err.Description

End Sub