Public Function LastNameChar(strName as string) As String
Select case Right(strName, 2)
case "ος"
LastNameChar = Left(strName, Len(strName) - 1) & "υ"
Case "ης"
LastNameChar = Left(strName, Len(strName) - 2) & "ου"
case else
LastNameChar =strName 'if there are no matching right 2 characters
end select
end function