Ascertaining a minimum value

Hi Gillian

Thank you for your question

The following code will solve your problem. It prompts the user for two words and uses the len function to determine the length of the words. It then returns the shortest word, or indicates that they are of the same length.

you can adapt this by setting the variables equal to your field values

Sub StringLengthComp()



    Dim strFirst As String

    Dim strSecond As String

    

    strFirst = InputBox("Enter First Word")

    

    strSecond = InputBox("Enter second Word")



    If Len(strFirst) = Len(strSecond) Then

    

        MsgBox "Both words are the same length"

        

        Exit Sub

        

    

    End If





    If Len(strFirst) > Len(strSecond) Then

    

        MsgBox strSecond

        

    Else

    

    

        MsgBox strSecond

        

     

     End If