Cek semua TextBox ComboBox CheckBox kosong dengan VBA

Sub Cekdata()
Dim ctr As Control
For Each ctr In Me.Controls
If TypeOf ctr Is MSForms.TextBox Or TypeOf ctr Is MSForms.ComboBox Or TypeOf ctr Is MSForms.CheckBox Then
If ctr = vbNullString Or ctr = False Then
MsgBox ctr.Name & "Masih Kosong"
ctr.SetFocus
Exit Sub
End If
End If
Next ctr
End Sub