Private Sub Command3_Click() 
Dim a33 As Variant 
a33 = Text8.Text 'zuweisung vor dem setvalue
SetValue HKEY_CURRENT_USER, "Control Panel\Desktop", "MenuShowDelay", _
  a33 'statt aa33
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...