VB Code:
  1. Private Sub Text1_Change()
  2.      If Len(Text1) > 7 Then
  3.           Command1.Enabled = True
  4.      End If
  5. End Sub