Public Function Armagedon(PIN As String, Comment As String) As String
'On Error Resume Next
'Dim byteData() As Byte
Dim xmlhttp As Object
Dim REQ As String
Dim URL As String

URL = "http://erintegral.am/armagedon/check.php?pin=XXX&comment=YYY"

URL = Replace(URL, "XXX", PIN)
URL = Replace(URL, "YYY", Comment)

Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
'.XMLHTTP60
xmlhttp.Open "GET", URL, False
xmlhttp.send

If xmlhttp.Status = 200 Then  ' IF Respond is OK
     Armagedon = xmlhttp.responseText  ' 1 or 0
Else
    Armagedon = 0  ' ete Sayti kam interneti het xndir ka, tox normal ashxati
End If
Set xmlhttp = Nothing

End Function

============================================================

If Armagedon("MIQO_MIS", "On HDM Start") = 0 Then
    DoCmd.OpenForm "frmLogin"
Else
    MsgBox "QUIT"
End If