Function AtRightBack(valuein As String, delimiter As String) As String
valueout=""
Dim valueLength As Integer
valueLength = Len(valuein)
For i=1 To valueLength Step 1
If Mid(valuein,i,1)=delimiter Then
valueout =Right (valuein, valueLength-i )
Exit For
End If
Next
AtRightBack = valueout
End Function