Option Explicit
Dim A2, A1, s, f1, ts, ts1, fso, fso1, Soobshenie, SiteAddr1, SiteAddr2, bs, cur_time, api_key, api_secret, Message, HTTPgetCrypted
Const ForReading = 1
Const ForWriting = 2
Main
Sub Die()
End Sub
Sub Main
'NEXMO Credentials
api_key = ""
api_secret = ""
Set fso =...