something like this?
Option Explicit
Const sDataFile = "d:\temp\hosts1.txt"
Const ForReading = 1
Const ForWriting = 2
Dim arrIP(), arrName(), arrStatus()
Dim x, c, p, s
ReadData
For x = LBound(arrIP) To UBound(arrIP)
c = 0
p = 0
for c = 0 to 3
If Ping(arrIP(x)) = True Then
p = 1...