get date from text & cell based on condition

Hi All

I need help to get date out so far I only have managed to get the number out function from http://www.ozgrid.com/VBA/ExtractNum.htm but what i am looking for is just to get dates with conditions:

1. take out date from text in column A
2. If there are string of numbers not date e.g date format 6 characters ending with 10 or 11 then copy date from column G
3. if no date in column A use copy date from column G

I have attached a test file to show the result i am looking if any one could help. Thanks

Here's a UDF that will do it.

Option Explicit

Function ExtractDate(Rng1 As Range, Rng2 As Range) As Date
Dim MyArr As Variant
Dim i As Long
Dim MyDate As String, MyStr As String

MyArr = Split(Trim(Rng1), " ")
For i = LBound(MyArr) To UBound(MyArr)
    MyStr = Trim(MyArr(i))
    If IsNumeric(MyStr) And Len(MyStr) = 6 Then
        If Right(MyStr, 2) = 10 Or Right(MyStr, 2) = 11 Then
            ExtractDate = DateSerial(Right(MyStr, 2), Mid(MyStr, 3, 2), Left(MyStr, 2))
            Exit Function
        End If
    End If
Next i

ExtractDate = Rng2

End Function

Used in cell I15 as:

=EXTRACTDATE(A15,G15)

It will attempt to pull out the date from the first cell, if none is found, it will return the second cell's date.