Yes, but MMDDYYYY is not a valid date format.
Sub FindMoney()
Dim oRng As Range
Dim arrFind() As String
Dim lngIndex As Long
arrFind = Split("$[0-9.,]{1,}|[0-9]{2}/[0-9]{2}/[0-9]{4}|[0-9]{8}", "|")
For lngIndex = 0 To UBound(arrFind)
Set oRng = ActiveDocument.Range
With oRng.Find
.Text = arrFind(lngIndex)
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute(Forward:=True) = True
Select Case lngIndex
Case 0: oRng.HighlightColorIndex = wdGreen
Case Else:
'If IsDate(oRng.Text) Then
oRng.HighlightColorIndex = wdGreen
'End If
End Select
oRng.Collapse wdCollapseEnd
Loop
End With
Next lngIndex
lbl_Exit:
Exit Sub
End Sub