How to use try catch in singgle line vb?

Statement looks like a filtering. We assume that you are interested on a returned datatable

dtFiltered =

(From d In YourDataTable.AsEnumerable()
Let sd = d("YourColNameOrIndex").toString.Trim
Let pc = DateTime.TryParseExact(sd,"YourDateFormat", CultureInfo.InvariantCulture, DateTimeStyles.None, nothing) 
Where pc
Let dp = DateTime.ParseExact(sd,"YourDateFormat", CultureInfo.InvariantCulture)
Where dp.Date < Now.Date
Select r = d).CopyToDataTable

Ensure:
import_systemglobalization

Handling empty results
:ambulance: :sos: [FirstAid] Handling of The source contains no DataRows exception - News / Tutorials - UiPath Community Forum