Limpiar cajas de texto en Visual Basic .NET

Me ha surgido la necesidad de reiniciar bastantes controles de texto en un formulario. En lugar de ir uno a uno iniciándolos (un poco pesado). Lo podemos hacer de esta manera un poco más rápido y corto:

Private Sub Limpia()

   For Each Control as Windows.Forms.Control in Me.Controls

      If TypeOf Control is GroupBox Then
          Dim Group as GroupBox = DirectCast(Control, GroupBox)

                    For Each ctrl As Windows.Forms.Control In group.Controls
               
                           If TypeOf ctrl Is TextBox Then

                                       ctrl.Text = ""   ' o 0 cualquier valor

                            End If

                     Next

      end if

End Sub

Hasta la próxima.