Автоматизация заполнения формы на сайте путем вставки текста из буфера обмена

Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Dim ArrayEmails() As String
Dim Counter As Long
 
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
Private Function ShowOpen() As String
    Dim OFName As OPENFILENAME
    
    'Set the structure size
    OFName.lStructSize = Len(OFName)
    'Set the owner window
    OFName.hwndOwner = Me.hWnd
    'Set the application's instance
    OFName.hInstance = App.hInstance
    'Set the filet
    OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
    'Create a buffer
    OFName.lpstrFile = Space$(254)
    'Set the maximum number of chars
    OFName.nMaxFile = 255
    'Create a buffer
    OFName.lpstrFileTitle = Space$(254)
    'Set the maximum number of chars
    OFName.nMaxFileTitle = 255
    'Set the initial directory
    OFName.lpstrInitialDir = "C:\"
    'Set the dialog title
    OFName.lpstrTitle = "Open File - KPD-Team 1998"
    'no extra flags
    OFName.flags = 0
 
    'Show the 'Open File'-dialog
    If GetOpenFileName(OFName) Then
        ShowOpen = Trim$(OFName.lpstrFile)
    Else
        ShowOpen = ""
    End If
End Function
 
Private Sub Command1_Click()
    Text1.Text = ShowOpen
End Sub
 
Private Sub Command2_Click()
    Dim newCounter As String
    Dim PutSetText As String
    
    If LoadFile(Text1.Text, ArrayEmails) = True Then
        newCounter = GetPrivateINIString(Text1.Text, "Counter")
        If newCounter <> vbNullString Then
            Counter = newCounter
            PutSetText = ArrayEmails(Counter)
        Else
            PutSetText = ArrayEmails(0)
        End If
        
        With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
           .SetText PutSetText
           .PutInClipboard
        End With
        
        Timer1.Enabled = True
        Text1.Locked = True
        Print "Начат процесс..."
        Me.Caption = "Позиция " & Counter
    Else
        Beep
    End If
End Sub
 
Private Sub Form_Load()
    Text1.Text = App.Path & "\" & App.EXEName & ".txt"
End Sub
 
Private Sub Timer1_Timer()
    On Error GoTo Handler
    
    If Timer2.Enabled = False Then
        If GetAsyncKeyState(17) And GetAsyncKeyState(86) Then
            Timer2.Enabled = True
            
            If (Counter + 1) <= UBound(ArrayEmails) Then
                With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
                   .SetText ArrayEmails(Counter + 1)
                   .PutInClipboard
                End With
                
                Counter = Counter + 1
                
                Me.Caption = "Позиция " & Counter
                WritePrivateINIString Text1.Text, "Counter", CStr(Counter)
                WritePrivateINIString Text1.Text, "Position", ArrayEmails(Counter)
            Else
                Counter = -1 ' Начать всё сначала по второму кругу
                With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
                   .SetText ArrayEmails(Counter + 1)
                   .PutInClipboard
                End With
                
                Me.Caption = "Позиция 0"
                WritePrivateINIString Text1.Text, "Counter", "0"
                WritePrivateINIString Text1.Text, "Position", ArrayEmails(0)
            End If
        End If
    End If
 
Handler:
End Sub
 
Private Sub Timer2_Timer()
    Timer2.Enabled = False
End Sub

SendKeys "{Tab}"