Public Function GET_MSXML_HTTP(ByVal strURL As String) As String
    Dim oHttp As Object
    
    On Error Resume Next
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    If err.Number <> 0 Then
        Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
    End If
    On Error GoTo 0
    If oHttp Is Nothing Then
        MsgBox "Не удалось инициализировать объект MSXML!"
        Exit Function
    End If
    On Error Resume Next
     oHttp.Open "GET", strURL, False
     oHttp.send
    On Error GoTo 0
    GET_MSXML_HTTP = oHttp.ResponseText
    Set oHttp = Nothing
End Function

Public Sub VhidniDani(Txt As String)
  Dim s As String
  Dim t1 As String
  Dim t2 As String
  Dim i As Long
  Dim l As String
 
  Static TrIgnor1 As Boolean
  s = Txt
  s = Replace(s, Chr(13) + Chr(13), Chr(13))
  s = Replace(s, Chr(10) + Chr(13), Chr(13))
  s = Replace(s, Chr(13) + Chr(10), Chr(13))
  Do
   i = InStr(s, Chr(13))
   If i > 0 Then
     t1 = Left(s, i - 1)
     If t1 <> FrmSMSMod1.Text1.Text Then
       If Trim(t1) <> "" Then
         
         
         
         
         FrmSMSMod1.List1.AddItem t1: FrmSMSMod1.List1.ListIndex = FrmSMSMod1.List1.ListCount - 1
         
         '+CMTI.....
         Debug.Print t1
         If UCase(Left(t1, 2)) = "OK" Then
            'Переводжу в режим читання смс з карточки
If LoadSms = True Then
  FrmSMSMod1.MSComm1.Output = "AT+CPMS=" + Chr(34) + "SM" + Chr(34) + "," + Chr(34) + "SM" + Chr(34) + "," + Chr(34) + "SM" + Chr(34) + Chr(13)
End If

           Exit Sub
         End If
         
         
         If LoadSms = True Then ' момент читання смс
           l = RozshifrovkaSMS(t1)
           FrmSMSMod1.Text3.Text = "Сервісний центр:" & PSMSCentrNomer & vbCrLf & "Дата-час:" & vbCrLf & "Номер відправника:" & PSenderNomer & vbCrLf & l 'RozshifrovkaSMS(t1)
If Nm <> "" Then FrmSMSMod1.MSComm1.Output = "AT+CMGD=" + Nm + Chr(13) 'стирання смс
            StatSms = "Прочитали смс"
           Exit Sub
         End If
         
         
         If UCase(Left(t1, 6)) = "+CMGR:" Then
            LoadSms = True 'Перехід в режим читання смс
            StatSms = "Читаємо смс"
         End If
         
         If UCase(Left(t1, 6)) = "+CMTI:" Then
           'Взнаємо номер смсски
           Nm = Trim(Mid(t1, InStrRev(t1, ",") + 1))
           If Nm = "" Then Exit Sub ' Помилка якась
           'Переходимо в режим читання смс з телефона
           FrmSMSMod1.MSComm1.Output = "AT+CPMS=" + Chr(34) + "ME" + Chr(34) + "," + Chr(34) + "ME" + Chr(34) + "," + Chr(34) + "ME" + Chr(34) + Chr(13)
           Exit Sub
         End If
         If UCase(Left(t1, 6)) = "+CPMS:" Then
            'Якщо перейшло в режим читання з телефону тоді читаємо смс
            If Nm <> "" Then FrmSMSMod1.MSComm1.Output = "AT+CMGR=" + Nm + Chr(13) 'читання смс
         End If
         
         
         If UCase(Left(t1, 6)) = "+CLCC:" Then
            'Після запитання хто до нас телефонує ми отримаємо готовий номер телефону
            i = InStr(t1, Chr(34))
            If i <> 0 Then
              HtoZvonit = Mid(t1, i + 1)
              HtoZvonit = Left(HtoZvonit, InStr(HtoZvonit, Chr(34)) - 1)
              If HtoZvonit = "38096xxxxxxx" Then Stop
            End If
            ''''FrmBookHtoZvonit.Label2.Caption = HtoZvonit + " "
            ''''FrmBookHtoZvonit.Show
         End If
         
         
         '+CMTI: "ME",97
         If UCase(t1) = "RING" Then ' Після того як ми побачили що до нас телефонують ми питаємось "Хто до нас телефонує ?"
           If Bell = 0 Then
             FrmSMSMod1.MSComm1.Output = "AT+CLCC" + Chr(13)
             HtoZvonit = ""
           End If
           Bell = 40
         End If
       End If
     End If
     s = Mid(s, i + 1)
   End If
  Loop While i > 0
  FrmSMSMod1.Text1.Text = ""
End Sub

  Dim s As String
  Dim p As String
Static i As Boolean
i = Not (i)
  If i = True Then s = "http://www.sql.ru" Else s = "http://m.rambler.ru/"
  p = GET_MSXML_HTTP(s)
  If p <> "" Then
    If Len(p) < 5 Then
      Beep
    End If
  End If