Private Sub TEXT1_Change()
Static IsChange As Boolean
IsChange = True
End Sub
if text.text="" and IsChange =false then command1.enabled=true
if text.text="" and IsChange = True then command2.enabled=false
if text.text<>"" and IsChange = True then
command3.enabled=false
command2.enabled=true
end if