Siguiendo el ejemplo anterior, también puedes automatizar más así:
Código vb:
Ver originalPrivate Sub Timer1_Timer()
Dim Cn As Control
For Each Cn In Me.Controls
If Left$(Cn.Name, 4) = "Text" Then
If Trim(Cn.Text) = "" Then
Command1.Enabled = False
Exit Sub
End If
End If
Next Cn
Command1.Enabled = True
End Sub
Por otro lado un Interval de 100 en el timer es más que suficiente.
Saludos