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