VBA extract date before keywords

[Heather515]

Need help with extracting date from text strings. I need to extract the date before a keyword. Data and results are shown below. Could somebody help me to write a function or VBA macro. Thanks.

data​	result​
NoteNoteNote6/11/2010NoteNote,NoteNote9/22/2012NoteNoteTHISNoteNote,NoteNote4/5/2019NoteNote​	9/22/2012​
NoteNote5/22/2018NoteNoteTHISNoteNote,NoteNoteNote6/18/2019NoteNote,NoteNote4/18/2019NoteNote​	5/22/2018​
NoteNoteNote8/18/2018NoteNote,NoteNote4/20/2019NoteNote,NoteNote9/10/2012NoteNoteTHISNoteNote​	9/10/2012​

 

[Peter_SSs]

Thanks! This is what I want. It works perfect!

You're welcome. Thanks for the follow-up.

Just in case it wasn't clear, the function can be used with another keyword by using the second, optional, argument. Also, if multiple keyword matches are found, it is the first one that the function uses.
For example:

Heather515.xlsm
	A	B
1	data	result
2	NoteNoteNote6/11/2010NoteNote,NoteNote9/22/2012NoteNoteTHISNoteNote,NoteNote4/5/2019NoteNote	6/11/2010
Sheet1

Cell Formulas
Range	Formula
B2	B2	=GetDate(A2,"Note")