per ora ho coniato questo e sembra andare!
Se però esistono metodi + rapidi e meno intricati son qui

codice:
For Each controllo As Control In Me.Controls
            If TypeOf controllo Is TextBox Then
                Dim txt As TextBox = controllo
                Dim testo As String = txt.Text
                For Each controllo2 As Control In Me.Controls
                    If TypeOf controllo2 Is TextBox Then
                        Dim txt2 As TextBox = controllo2
                        If controllo2.Name <> controllo.Name Then
                            If txt2.Text = txt.Text Then
                                MsgBox("Il testo di " & txt.Name & "è uguale a quello di " & txt2.Name)
                                Exit Sub
                            End If
                        End If
                    End If
                Next
            End If
        Next