Function FatherName(ByVal strName As String) As String
    Dim myArray, e
    myArray = Array("أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله", "زين ال", "أم كلثوم", "ام كلثوم", "بن لادن", "بن زياد", "أم هاشم", "ام هاشم", "فاطمة الزهراء", "حبيبة الرحمن", "عبد ربه", "نور الهدى", "حد الزين", "جاد لله", "سمو الامير", "حسب النبي", "انور السادات", "ماهي نور", "سعد الهنا", "سبع ال", "عطا لله", "ضي العين", "جاد الكرم", "جاد الكريم", "عبد ال", "ست ابوها", "مطيع الرحمن", "جاد الرب", "خالد بن الوليد")
    On Error GoTo ErrHandler
    For Each e In myArray
        strName = Replace(strName, e, Replace(e, Space(1), "_"))
    Next e
    FatherName = Replace(Trim(Mid(strName & " ", InStr(strName & Space(1), Space(1)), Len(strName))), "_", Space(1))
    Exit Function
ErrHandler:
    FatherName = vbNullString
End Function