Microsoft 365 otif one time et one full

Type otif
    one_time As Variant
    one_full As Variant
End Type

Dim ootif As otif
Sub test()
    O_tif 5, 10
    MsgBox "[ one_time ] " & ootif.one_time & vbCrLf & "[ one_full ] " & ootif.one_full
    O_tif 7, 3
    MsgBox "[ one_time ] " & ootif.one_time & vbCrLf & "{ one_full ]" & ootif.one_full
    O_tif 10, 10
    MsgBox "[ one_time ] " & ootif.one_time & vbCrLf & "{ one_full ]" & ootif.one_full

End Sub
Function O_tif(v1 As Long, v2 As Long)
    If v1 < v2 Then ootif.one_time = "ben c'est pas ça": ootif.one_full = False: Exit Function

    If v1 > v2 Then ootif.one_time = "ben c'est pas ça non plus": ootif.one_full = False: Exit Function

    If v1 = v2 Then ootif.one_full = " Ah  là oui!! on y est !! te casse pas le popotin c'est tout droit": ootif.one_time = False: Exit Function
End Function