Hola, probé con un ejemplo sencillo en W7 y sí funcionó, me imagino que en vista tambien tendría que andar (Tené en cuenta que no uso antivirus)
Private Sub Form_Load()
'Apenas carga el programa, carga los datos
Cargar_De_Registro
Me.Caption = " ejemplo de GetSetting y SaveSetting"
End Sub
'Lee los datos del registro con la función GetSetting _
recorre los textbox y le asigna el valor a cada uno de ellos
Sub Cargar_De_Registro()
Dim i As Integer
For i = 0 To Text1.Count - 1
Text1(i).Text = GetSetting(App.EXEName, _
"TextBox", _
"Text" & i)
Next
End Sub
Private Sub Form_Unload(Cancel As Integer)
Grabar_En_Registro
End Sub
Private Sub Grabar_En_Registro()
Dim i As Integer
For i = 0 To Text1.Count - 1
Call SaveSetting(App.EXEName, "TextBox", _
"Text" & i, Text1(i).Text)
Next
End Sub
Saludos