Public Sub EnterToMailRu()
    Const conLogin As String = "UserName"
    Const conPassword As String = "UserPassword"
        
    Dim i As Integer
    Dim ie As Object
    Dim varReturn As Variant
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ie.Navigate ("http://www.mail.ru")
    
    varReturn = SysCmd(acSysCmdInitMeter, "Entering to Mail.Ru ...",  100 )
    While CBool(ie.Busy)
        i = i +  1 
        varReturn = SysCmd(acSysCmdUpdateMeter, Int(i /  30000  *  100 ))
        If i >  29999  Then
           varReturn = SysCmd(acSysCmdClearStatus)
           Beep
           MsgBox "Something is wrong. Mail.Ru is not accessible", vbCritical, "Mail.Ru"
           ie.Quit
           Set ie = Nothing
           Exit Sub
        End If
        DoEvents
    Wend
    varReturn = SysCmd(acSysCmdClearStatus)
    
    ie.Document.Forms.Auth.Login.Value = conLogin
    ie.Document.Forms.Auth.Password.Value = conPassword
    
    ie.Document.Forms.Auth.submit
    
    Set ie = Nothing
End Sub

Public Sub Send_SMS_via_MTS_Site()
    Const conLogin As String = "916692...."
    Const conPassword As String = "123456"
        
    Dim i As Integer
    Dim ie As Object
    Dim varReturn As Variant
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    ie.Navigate "https://www.mts.ru"
    
    varReturn = SysCmd(acSysCmdInitMeter, "Entering to MTS.Ru ...",  100 )
    While CBool(ie.Busy)
        i = i +  1 
        varReturn = SysCmd(acSysCmdUpdateMeter, Int(i /  30000  *  100 ))
        If i >  29999  Then
           varReturn = SysCmd(acSysCmdClearStatus)
           Beep
           MsgBox "Something is wrong. MTS.Ru is not accessible", vbCritical, "MTS.Ru"
           ie.Quit
           Set ie = Nothing
           Exit Sub
        End If
        DoEvents
    Wend
    varReturn = SysCmd(acSysCmdClearStatus)
    
    ie.Document.Forms.loginForm.phoneNumberEdit.Value = conLogin
    ie.Document.Forms.loginForm.passwordEdit.Value = conPassword
    'ie.Document.Forms.loginForm.Submit - в лоб не работает, поэтому идем в обход'
    ie.Document.Forms.loginForm.loginButton.focus
    SendKeys "{ENTER}"
    
    While CBool(ie.Busy)
        i = i +  1 
        If i >  29999  Then Exit Sub
    Wend
    
    ie.Navigate "https://www.mts.ru/cgi-bin/cgi.exe?function=sms_send"

    While CBool(ie.Busy)
        i = i +  1 
        If i >  29999  Then Exit Sub
    Wend
    
    ie.Document.Forms.Send.To.Value = "7" & conLogin
    ie.Document.Forms.Send.Msg.Value = "Send SMS using VBA"
    
    ie.Document.Forms.Send.DelayMin.focus
    SendKeys "{Tab}{Tab}{ENTER}"

    Set ie = Nothing
End Sub