Dim R as New Regex("[-/]") Dim Parts as String() = R.Split(MyDate) ----------------------------------------------------------------------------- Copyright 1997-2025 Jeffrey Friedl