HI,
The following expression helps you.
Enumerable.Range(1,7).Select(Function(i) New DateTime(2022,2,i)).Where(Function(d) d.DayOfWeek = DayOfWeek.Thursday).Single()
OR
Enumerable.Range(1,7).Select(Function(i) New DateTime(2022,2,i)).Where(Function(d) d.DayOfWeek = DayOfWeek.Thursday).Single().ToString()
Please modify 2022 and 2 to required year and month.
Regards,