Function WriteToReg1()
    Dim RegKey As String
    Dim RegObj
    Dim Value As String
    Dim WTR1 As Object
'Writes the Version Number in the Registry
'This can be done by Package Solution Wizard   
    RegKey = "HKCU\SOFTWARE\MyApp\Version"
'Version in the format X.X.X
'X is between 0 and 9
    Value = "1.2.3"
    Set WTR1 = CreateObject("WScript.Shell")
    WTR1.RegWrite RegKey, Value, "REG_SZ"
End Function