ReturnLongestString_Of2

Returns the string that is longer, comparing what is before StrSepa versus after StrSepa

CodeFunctionName

What is this?

Public

Tested

Original Work

Function ReturnLongestString_Of2(FromString, StrSepa)
    ' Returns the string that is longer, comparing what is before StrSepa versus after StrSepa
    ' Needs CutString
    '
    Rett = FromString
    Str01 = CutString(FromString, , StrSepa)
    Str02 = CutString(FromString, StrSepa)
    Rett = Str01
    If Len(Str01) < Len(Str02) Then Rett = Str02

    ReturnLongestString_Of2 = Rett
End Function

FromString, StrSepa