Dim R as New Regex("\.") Dim Parts as String() = R.Split("209.204.146.22", 2) ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl