sudo su - asiv1adm
cd /applis/asiv1/asiv1adm/testdata

Sub Test()
    Dim UserName As String
    Dim Passwrd As String

    UserName = "ABC"
    Passwrd = "HFGHYIU"

    Set WshShell = CreateObject("WScript.Shell")
    pcmd = "C:Users615DesktopPuTTYputty.exe -ssh -load session" & " " & UserName & "@192.87.84.193 -pw" & " " & "Passwrd -m" & " " & "P:MT103FTPmycommands.sh -t"

    Set exec = WshShell.exec(pcmd)