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