Do
res = InputBox("Enter two character State Abbreviation")
if len(trim(res)) = 0 then exit sub
While len(trim(res)) < 2

res1 = Application.vlookup(res,Range("Table1"),2,False)
if not iserror(res1) then
msgbox "Abbr: " & res & " state is: " & res1
Else
msgbox "Bad Abbr: " & res
End if

on a worksheet put the 50 abbreviations in left column and corresponding
state name in right column. Name the table Table1.

--
regards,
Tom Ogilvy

"Terrin" wrote in message
om...
Hello,
I am currently creating a spreadsheet to automate a few tasks for
my users. Currently I have a command button in place, when this is
clicked, a msgbox pops up and asks for user input. What I need to
happen is the user input to be declared as a variable. Once it is
declared, probably with IF statements, I need to reference a msgbox,
depending on what the user inputs, I need to direct to the
corresponding msgbox. Example, the user inputs the two-letter
abbreviation for a state. Using that abbrev, I need to return a msgbox
with the corresponding text.

Any ideas as to how I can do this? If you could get me started with
the code, or point me in the direction that would be great.

For more explanation e-mail .
Thanks.