Sólo tienes que modificar el tercer parámetro por el nombre de valor con que quieres guardar en el registro. El cuarto parámetro de SaveSetting es el dato a guardar:
Código vb:
Ver originalLeer = GetSetting(App.EXEName, "Settings", "Clave")
SaveSetting App.EXEName, "Settings", "Clave", Variable