Public Function CustomSortOrder(ByVal RAG As String) as Integer
Select Case RAG
Case = "Up to 6 month"
Return 1
Case = "7 to 12 months"
Return 2
Case = "More than 12 months"
Return 3
End Select
End Function
=Code.CustomSortOrder(Fields!RAG.Value)
