Function Valid(ByVal str As String) As String
    If (str = Nothing or str = "" or str = "@") Then
        Return Nothing
    Else
        If (str.Split("@").GetValue(1) = "" or str.Split("@").GetValue(1) = Nothing) Then
            Return "Reçu par : " + ((str.Split("@").GetValue(0)).Split("|")).Join(" et ")
        Else
            Return "Reçu par : " + ((str.Split("@").GetValue(0)).Split("|")).Join(" et ") + " accompagné de " + ((str.Split("@").GetValue(1)).Split("|")).Join(" et ")
        End If
    End If
End Function