I want to make a procedure to change a textboxs text and backcolor values.

I need to define a user-type variable that can be one of the following states:

Dormant
Listening
Connecting
Connected

Then, how can I pass that as an arguement into my Sub routine for setting the textbox up ?

Sub Status()