This code....
Dim strTemp As String
Dim myDate
strTemp = Left(strContent, InStr(strContent, Chr(13)) - 1)
SettlementDate = CDate(Split(strTemp, "To ")(1))
...worked for on the string I provided in my opening post, i.e....
Transaction Summary for 10 April 2018 to 18 April 2018
However on...