It seems like I have found the solution:
Dim connInfo as new Renci.Sshnet.PasswordConnectionInfo(host, port, username, password)
Dim sftpclient as new Renci.Sshnet.SftpClient(connInfo)
sftpclient.connect()
Dim connInfo as new Renci.Sshnet.PasswordConnectionInfo(host, port, username, password)
Dim sftpclient as new Renci.Sshnet.SftpClient(connInfo)
sftpclient.connect()