dim WSH
set WSH = createobject("WScript.Shell")
WSH.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url1", "http://www.google.com"

' /* Create Shell Object */
dim WSH
set WSH = createobject("WScript.Shell")

' /* Set I To 1
I = 1

' / * Loop Without Conditions (Infinately) */
do 
	' /* If There is any kind of error, just keep processing */
	on error resume next

	' /* Read The String Value In The Registry Into the url Variable */
	url = WSH.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I)

	' /* If The Length Of What We Read From The Registry is 0, Then Break From The Loop */
	if len(url) = 0 then exit do

	' /* OverWrite The Current Value (current URL) with "" chr(34) is the character code for " */
	WSH.RegWrite "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I, chr(34) & "" & chr(34)

	' /* Reset URL */
	url = ""

	' /* Add One To I (To get the next URL in the registry */
	I = I + 1
loop

' /* All Done */
msgbox "Complete!"
WScript.Quit

' /* Create Shell Object */
dim WSH
set WSH = createobject("WScript.Shell")

' /* Set I To 1
I = 1

' / * Loop Without Conditions (Infinately) */
do 
	' /* If There is any kind of error, just keep processing */
	on error resume next

	' /* Read The String Value In The Registry Into the url Variable */
	url = WSH.RegRead("HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I)

	' /* If The Length Of What We Read From The Registry is 0, Then Break From The Loop */
	if len(url) = 0 then exit do

	' /* Delete The URL From The Registry */
	 WSH.RegDelete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs\url" & I

	' /* Reset URL */
	url = ""

	' /* Add One To I (To get the next URL in the registry */
	I = I + 1
loop

' /* All Done */
msgbox "Complete!"
WScript.Quit

' /* Create Shell Object */
dim newurl
dim WSH
set WSH = createobject("WScript.Shell")

' /* Get The URL From The User */
newurl = inputbox("Please, Enter The New Home Page")

' /* If They Hit Cancel, Or Leave It Blank Then Exit Sub */
if newurl = "" then exit sub

' /* Set The Home Page To The New URL */
wsh.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page", newurl

' /* Tell us It's Done */
msgbox "Done!"

Public Function readIniReg() As Boolean
        Dim localResult As Boolean
        Dim regKey As RegistryKey
        Dim regKeyCompany As RegistryKey
        Dim regKeyProduct As RegistryKey

        localResult = False

        regKey = Registry.CurrentUser.OpenSubKey("Software", True)
        regKeyCompany = regKey.OpenSubKey("Company", True)
        regKeyProduct = regKeyCompany.OpenSubKey("Data", True)

        'Name of value to return
        strName = regKeyProduct.GetValue("Username").ToString()
        'Pass username string variable to form1 variable
        Form1_LogIn.username = strName
        'Display Name in the textbox
        Form1_LogIn.txt_user.Text = strName


        'Close all keys
        regKeyCompany.Close()
        regKeyProduct.Close()
        regKey.Close()