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