Posto che come da indicazioni di Microsoft tutte le label andrebbero nominate con lbl... per rendere più facile la scrittura e la manutenzione del codice potresti inserire all'interno dell' IF la verifica del nome della label.
Se inizia per "rit" allora il testo sarà cancellato.
Es.
For Each oggettino As Object In Me.Controls
If TypeOf oggettino Is Label Then
Dim stringa As String = oggettino.name
If stringa.Substring(0, 3) = "rit" Then
oggettino.text = ""
End If
End If
Next
Se vuoi cancellare le label es. da 1 a 36 per me sarebbe meglio inserire uno 0 per le label da 1 a 9 e poi:
For Each oggettino As Object In Me.Controls
If TypeOf oggettino Is Label Then
Dim numLblStr As String
' Estrae la sottostringa da pos 4 per 2 caratteri
numLblStr = oggettino.name.substring(3, 2)
' Verifica se la sottostringa è un numero (x evitare eccezioni)
If IsNumeric(numLblStr) Then
Dim numLblInt = CInt(numLblStr)
If numLblInt <= 36 Then
oggettino.text = ""
End If
End If
End If
Next