Visual Basic - Saber cuantos textBox tienen texto

contador = 0

si textbox1 esta vacio entonces contador++

si textbox2 esta vacio entonces contador++

si textbox3 esta vacio entonces contador++

si contador es mayor a cero mostrar "se han llenado " & 3 - contador & "textbox"

Private Sub Command1_Click()

Dim ob As Object

Dim ct As Control

Dim contt, conttv As Integer

contt = 0

conttv = 0

 For Each ob In Form1.Controls

  Set ct = ob

  If TypeOf ct Is TextBox Then

   contt = contt + 1

    If ct.Text <> "" Then conttv = conttv + 1

  End If

 Next

    MsgBox "De los " & contt & " que hay en el formulario " & conttv & " estan llenos ", vbInformation, "Contador de Text"

End Sub