'fierceweb software 2005 
'2005 license allowed by - jaymzanator 
'sale or use without permission will result in action 
being taken 
private sub cmd_entercode_click() 
dim msgtitle as string 
if txtinput.text = "" Then 
exit sub 
else: 
msgtitle = txtinput.text  
msgbox msgtitle , vbcritical , "Text Input Field" 
end if 
end sub