error during session.open()

Private Sub Form_Load()
    Dim session As New WinSCP.session
    Dim sessionOptions As New WinSCP.sessionOptions
    
    sessionOptions.Protocol = 0
    sessionOptions.HostName = "XXX.com"
    sessionOptions.UserName = "XXX"
    sessionOptions.Password = "XXX"
    sessionOptions.SshHostKeyFingerprint = "ssh-rsa 2048 XXX"
    
    session.ExecutablePath = "c:\Program Files (x86)\WinSCP\winscp.exe"
    session.DebugLogPath = "d:\copy\6.txt"
    session.SessionLogPath = "d:\copy\7.txt"
    session.Open sessionOptions
    
End Sub