Pls try.....

Function AgeBucket(strValue) As String

AgeBucket = Application.Evaluate("=LOOKUP(today()-" & strValue & ",
{0,7.51,14.51,21.51,30.51,45.51,60.51;""0-7"",""8-14"",""15-21"",""22-30"",""31-45"",""46-60"",""60""})")
'Comment---This line will be in one single line otherwise error



End Function