' URL that generated this code:
' http://txt2re.com/index-vb6.php3?s=11:Jan:2019%20%22This%20is%20an%20Example!%22&51&-44

Private Sub Command1_Click()
  Dim txt As String
  txt ="11:Jan:2019 ""This is an Example!"""

  Dim re1 As String
  re1 =".*?"	'Non-greedy match on filler
  Dim re2 As String 
  re2 ="1"	'Uninteresting: d
  Dim re3 As String
  re3 =".*?"	'Non-greedy match on filler
  Dim re4 As String 
  re4 ="1"	'Uninteresting: d
  Dim re5 As String
  re5 =".*?"	'Non-greedy match on filler
  Dim re6 As String
  re6 ="(1)"	'Any Single Digit 1
  Dim re7 As String
  re7 =".*?"	'Non-greedy match on filler
  Dim re8 As String 
  re8 ="."	'Uninteresting: c
  Dim re9 As String
  re9 =".*?"	'Non-greedy match on filler
  Dim re10 As String 
  re10 ="."	'Uninteresting: c
  Dim re11 As String
  re11 =".*?"	'Non-greedy match on filler
  Dim re12 As String 
  re12 ="."	'Uninteresting: c
  Dim re13 As String
  re13 =".*?"	'Non-greedy match on filler
  Dim re14 As String 
  re14 ="."	'Uninteresting: c
  Dim re15 As String
  re15 =".*?"	'Non-greedy match on filler
  Dim re16 As String 
  re16 ="."	'Uninteresting: c
  Dim re17 As String
  re17 =".*?"	'Non-greedy match on filler
  Dim re18 As String 
  re18 ="."	'Uninteresting: c
  Dim re19 As String
  re19 =".*?"	'Non-greedy match on filler
  Dim re20 As String 
  re20 ="."	'Uninteresting: c
  Dim re21 As String
  re21 =".*?"	'Non-greedy match on filler
  Dim re22 As String 
  re22 ="."	'Uninteresting: c
  Dim re23 As String
  re23 =".*?"	'Non-greedy match on filler
  Dim re24 As String 
  re24 ="."	'Uninteresting: c
  Dim re25 As String
  re25 =".*?"	'Non-greedy match on filler
  Dim re26 As String 
  re26 ="."	'Uninteresting: c
  Dim re27 As String
  re27 =".*?"	'Non-greedy match on filler
  Dim re28 As String 
  re28 ="."	'Uninteresting: c
  Dim re29 As String
  re29 =".*?"	'Non-greedy match on filler
  Dim re30 As String 
  re30 ="."	'Uninteresting: c
  Dim re31 As String
  re31 =".*?"	'Non-greedy match on filler
  Dim re32 As String 
  re32 ="."	'Uninteresting: c
  Dim re33 As String
  re33 =".*?"	'Non-greedy match on filler
  Dim re34 As String 
  re34 ="."	'Uninteresting: c
  Dim re35 As String
  re35 =".*?"	'Non-greedy match on filler
  Dim re36 As String 
  re36 ="."	'Uninteresting: c
  Dim re37 As String
  re37 =".*?"	'Non-greedy match on filler
  Dim re38 As String 
  re38 ="."	'Uninteresting: c
  Dim re39 As String
  re39 =".*?"	'Non-greedy match on filler
  Dim re40 As String 
  re40 ="."	'Uninteresting: c
  Dim re41 As String
  re41 =".*?"	'Non-greedy match on filler
  Dim re42 As String 
  re42 ="."	'Uninteresting: c
  Dim re43 As String
  re43 =".*?"	'Non-greedy match on filler
  Dim re44 As String 
  re44 ="."	'Uninteresting: c
  Dim re45 As String
  re45 =".*?"	'Non-greedy match on filler
  Dim re46 As String 
  re46 ="."	'Uninteresting: c
  Dim re47 As String
  re47 =".*?"	'Non-greedy match on filler
  Dim re48 As String 
  re48 ="."	'Uninteresting: c
  Dim re49 As String
  re49 =".*?"	'Non-greedy match on filler
  Dim re50 As String
  re50 ="(.)"	'Any Single Character 1

  Dim r As New RegExp
  r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17+re18+re19+re20+re21+re22+re23+re24+re25+re26+re27+re28+re29+re30+re31+re32+re33+re34+re35+re36+re37+re38+re39+re40+re41+re42+re43+re44+re45+re46+re47+re48+re49+re50
  r.IgnoreCase = True
  Dim m As MatchCollection
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim d1
      d1=m.Item(0).SubMatches.Item(0)
      Dim c1
      c1=m.Item(0).SubMatches.Item(1)
      MsgBox("("+d1+")"+"("+c1+")"+"")
  End If
End Sub

'-----
' To run this code:
' .Start Microsoft Visual Basic 6.0.
' .On the File menu, click New Project.
' .Click Standard Exe in the New Project dialog box, and then click OK.
' .On the Project menu, click References.
' .Double-click Microsoft VBScript Regular Expressions 5.5, and then click OK.
'   (If you can't find this option, download "Microsoft Windows Script 5.6"
'     from Microsoft)
' .In the toolbox, double-click CommandButton.
' .Double-click Command1 to open the Code window.
' .Paste the code above into the Command1_Click event handler:
'-----