_Desktop_Passwords[…] = … (gb.desktop)

Dim hDesktop As Desktop
Dim aString As String
hDesktop.Passwords [ Key As String ] = aString

Associates a password with a key.