Hola. Proba con el siguiente código
Private Sub Text1_Change()
If Trim(Text1.Text) = "" Then
cmdGuardar.Enabled = False
Else
cmdGuardar.Enabled = True
End If
End Sub
Si necesitas que el cmdGuardar este activo cuando en el text1 haya espacios en blanco, simplemente le sacas la función Trim().
Saludos.
Lucas