Получение внешнего IP

Const ForAppending As Long = 8, ForReading As Long = 1, ForWriting As Long = 2
 
Sub aa()
With CreateObject("Microsoft.XMLHTTP")
    .Open "GET", "http://real-play.ru/", False
    .Send
    responded = .ResponseText
End With
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
Stop
With FSO.OpenTextFile("h:\real-play.txt", ForWriting, True)
    On Error Resume Next
    For n = 1 To Len(responded)
        '.Write Chr(Asc(Mid(responded, n, 1)))
        ch = Mid(responded, n, 1)
        a = Asc(ch)
        .Write ch
        If Err Then Stop: Err.Clear
    Next
    .Close
End With
End Sub

Sub test()
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'Формируем строку с Char от 0 до 255
For n = 0 To 255
    chars = chars & Chr(n)
Next
Stop
With FSO.OpenTextFile("h:\real-play.txt", ForWriting, True)
    On Error Resume Next
    For n = 1 To Len(chars)
        ch = Mid(chars, n, 1)
        .Write ch
        If Err Then Err.Clear Else good = good & ch
    Next
    .Close
End With
Stop
MsgBox good
End Sub

Const adTypeBinary = 1, adTypeText = 2
Const adSaveCreateOverWrite = 2
 
Sub aa()
With CreateObject("Microsoft.XMLHTTP")
    .Open "GET", "http://real-play.ru/", False
    .Send
    responded = .ResponseText
End With
 
Set oStream = CreateObject("ADODB.Stream")
With oStream
    .Type = adTypeText 'adTypeBinary
    .Charset = "windows-1251"
    .Open
    'здесь Write не тоже самое, что и в FSO. Write записывает данные в сам объект ADODB.Stream (поток)
    .WriteText responded
    .SaveToFile "h:\real-play.txt", adSaveCreateOverWrite
    .Close
End With
Set oStream = Nothing
End Sub