Option Explicit
 
Sub SchreibeRegFile(sDateiname As String, sRegistrySchluessel As String)
' MsgBox "regedit /e """ & sDateiname & """ """ & sRegistrySchluessel & ""
Shell "regedit /e """ & sDateiname & """ """ & sRegistrySchluessel & "", vbHide
End Sub
 
Private Sub Command1_Click()
SchreibeRegFile "C:\data.reg", _
  "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Micr" & _
  "soft MSDN 2005 Express Edition - ENU"
MsgBox "fertig"
End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co