Assign new value to internet explorer ?

Hi EveryBody:

I have this code which read the address bar of internet explorer:

Function EnumParentProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As
Boolean
Dim sb As New StringBuilder(256)
GetWindowText(hWnd, sb, sb.Capacity)
Dim windowText As String = sb.ToString()
If (windowText.EndsWith("- Microsoft Internet Explorer")) Or
(windowText.EndsWith("- Microsoft Internet Explorer - [Working Offline]"))
Then
EnumChildWindows(hWnd, ecp, IntPtr.Zero)
End If
Return True
End Function

Function EnumChildProc(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As
Boolean
Dim className As New StringBuilder(256)
GetClassName(hWnd, className, className.Capacity)
If className.ToString() = "ComboBoxEx32" Then
Dim textlength As Integer = SendMessage(hWnd, WM_GETTEXTLENGTH,
IntPtr.Zero, IntPtr.Zero)
Dim windowText As New StringBuilder(textlength + 1)
SendMessage(hWnd, WM_GETTEXT, windowText.Capacity, windowText)
windowText.ToString
My question is:

how can I make this code after reading the address bar of Internet Explorer
assign new value for IExplorer like for i.e www.msn.com ?

any help will be appreciated

regard's

husam