Dim Words() As String
  Words() = Split(strData)
  If Words(1) = "OFFLINE" Then


Words(1) gets a "subscript out of range" error :o