The simplest solution
vb Code:
  1. Private Sub Text1_Change()
  2.     Command1.Enabled = Not (Text1.Text = vbNullString)
  3. End Sub