MSHTML Control with VB

HI all,

i am working on a automatic Popup application and i am using VB for this i dont know much about html. just basics what i know. actully now i whould like to tell that in this application i can open that APS page in my html in my vb form and this html have a text box with the name text1 what i want is enter some number in this and make enter to preseed. in this this works fine. when i move on to ASP thing then there is some Frams its 3 Frams. one frams covers whole left cornet with some menus and 2nd in on cover top with that text box in table and 3rd where we see some information after filling that text1.

i can show you some asp code my VB Code also

ASP

and i am sure that upperFrame i have a text box with name text1 so what i want is just focus on this text box enter some number and ENTER then.

My VB Code...........................

Public StartingAddress As String
Dim mbDontNavigateNow As Boolean

Private mDoc As HTMLDocument
Private Sub Command1_Click()
Set mDoc = Web1.document
mDoc.All("text1").focus (True)
mDoc.All("text1").Value = "123947"
SendKeys "{enter}"
End Sub

Private Sub Form_Load()
On Error Resume Next
Me.Show

StartingAddress = "www.xyz.com/frams.asp"

If Len(StartingAddress) > 0 Then
Me.Caption = Web1.LocationName
timTimer.Enabled = True
Web1.navigate StartingAddress