Dim binIP(4) As Byte binIP(0) = CByte(Row.RemoteIP.Split(CChar("."))(0)) binIP(1) = CByte(Row.RemoteIP.Split(CChar("."))(1)) binIP(2) = CByte(Row.RemoteIP.Split(CChar("."))(2)) binIP(3) = CByte(Row.RemoteIP.Split(CChar("."))(3)) Row.IP = binIP