If/Then statements with three outcomes

[Garrek]

Hey all, I have a Userform with textboxes in it. A user can input up to two characters in each. How the values are formatted is dependent on how many characters there are i.e. Empty Textboxes are handled one way, single characters ("A") are handled another and 2 letters ("AB") are handled a separate way. Is there any easy way to sort these?

Right now I have the following code

If TB.Value = "" Then
Set xxxxxxxxxx
Else
Set xxxxxxx
End If

This takes care of empty text boxes and non empty ones, but I'm hoping to find a way to incorporate single vs 2 initial.

 

[Joe4]

Sure, use a Case statement, i.e.

Select Case Len(TB.Value)
    Case 0
        Set XXX
    Case 1
        Set YYY
    Case 2
        Set ZZZ
    Case Else
        MsgBox "Error!"
End Select

See here for more information: https://www.techonthenet.com/excel/formulas/case.php

 

[Garrek]

Sure, use a Case statement, i.e.

Select Case Len(TB.Value)
    Case 0
        Set XXX
    Case 1
        Set YYY
    Case 2
        Set ZZZ
    Case Else
        MsgBox "Error!"
End Select

See here for more information: https://www.techonthenet.com/excel/formulas/case.php

Is there a good way to quickly identify how many characters are in the textbox? I used TB.Value = "" to identify empty textboxes, but obviously that won't work for trying to differentiate between 1 and 2 character inputs.

 

[Joe4]

Is there a good way to quickly identify how many characters are in the textbox?

Yes, and I already did it in my previous reply:

Select Case [COLOR=#0000ff]Len(TB.Value)[/COLOR]

The LEN function checks the length (number of characters) of the value entry in your "TB" textbox.

Try it out for yourself and see!

 

[Garrek]

Yes, and I already did it in my previous reply:

Select Case [COLOR=#0000ff]Len(TB.Value)[/COLOR]

The LEN function checks the length (number of characters) of the value entry in your "TB" textbox.

Try it out for yourself and see!

Missed that. Thank you! Working great so far.

 

[Joe4]

You are welcome.