Stuff

If Button1.Text = Button2.Text Or Button1.Text = Button3.Text Or Button1.Text = Button4.Text Then
            MsgBox("there is a mistake in row 1")
            Exit Sub

        End If

        If Button1.Text = Button5.Text Or Button1.Text = Button9.Text Or Button1.Text = Button13.Text Then
            MsgBox("there is a mistake in colum 1")
            Exit Sub

        End If

        If Button1.Text = Button2.Text Then
            MsgBox("there is a mistake in group 1")
            Exit Sub

        End If