Multiple IF/Else Possible?

[BrianExcel]

What's the most effective way to go about this?

The user enters a number into a text box and presses a button to search. The number in that text box can be either 2, 3 or 4 digits.

I basically need to do the following:

If len(textbox1) = 1 then
textbox2 = "00" & textbox1.value & "@here.com"
else
if len(textbox1) = 2 then
textbox2 = "0" & textbox1.value & "@here.com"
else
if len(textbox1) = 3 then
textbox2 = textbox1.value & "@here.com"
end if

PS - I know the above code is not accurate. I am missing "End If' and a few other things, but this gives an exmaple of what I am trying to do. Would there be a way to do this? Would Select case be a better example?

Thanks.

 

[VoG]

Maybe like this

textbox2.Value = WorksheetFunction.Rept("0", 3 - Len(textbox1.Value)) & textbox1.Value & "@here.com"

 

[BrandonWLH]

Or a select case

select case len(textbox1)
   case 1
      textbox2 = "00" & textbox1.value & "@here.com"
   case 2
      textbox2 = "0" & textbox1.value & "@here.com"
   case 3
      textbox2 = textbox1.value & "@here.com"
 
   case else
   'error catch here when no cases match up
 
end select