Delimiter Date Format

I'm trying to check that part of a delimited field has been entered with a date format of DD-MON-YYYY and I cannot work out how to do this.

The following is what I have so far:

Public Sub date_val()

Dim rCell As Range
Dim RowCounter As Integer
Dim ColumnsChecked As Integer
Dim InvoiceDate As Date

For Each rCell In Range("B14:B5000")
RowCounter = rCell.Row
ColumnsChecked = 41
If UBound( Split(Cells(RowCounter, ColumnsChecked).value, "|")) <> 11 Then
MsgBox "Incorrect number of delimiters. Please correct", vbCritical, " Validation"
Cells(RowCounter, ColumnsChecked).Select
End
Else
End If