Option Explicit
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Public Function GetCaption(lhWnd As Long) As String
Dim sA As String, lLen As Long
lLen = GetWindowTextLength(lhWnd)
sA = String(lLen,  0 )
Call GetWindowText(lhWnd, sA, lLen +  1 )
GetCaption = sA
End Function
Public Function DLHFindWin(frm As Form, WinTitle As String, CaseSensitive As Boolean) As Long
Dim lhWnd As Long, sA As String
lhWnd = frm.hwnd
Do
DoEvents
If lhWnd =  0  Then Exit Do
If CaseSensitive = False Then
sA = LCase(GetCaption(lhWnd))
WinTitle = LCase(WinTitle)
Else
sA = GetCaption(lhWnd)
End If
If InStr(sA, WinTitle) Then
DLHFindWin = lhWnd
Exit Do
Else
DLHFindWin =  0 
End If
lhWnd = GetNextWindow(lhWnd,  2 )
Loop
End Function

Private Sub Form_Load()
Call MsgBox(GetCaption(DLHFindWin(Me, "Okno", False)))
End Sub

Dim control As Object
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate (Страница) 'открывает указанную в скобках страницу

<tr style="height:20px;"><td colspan="4"><input type="submit" value="Дальше"></td>

IE.Navigate ("http://" & MyString & "/index.php?page=123")

IE.Navigate ("http://" & MyString & "/index.php?page=123")

MyString = Space( 100 )
Call GetPrivateProfileString("Main", "url", "", MyString, Len(MyString), App.Path & "\ini.ini")