For Count = 1 To 9
            Dim Tnumber = CType(Controls.Find("tbnumber" & Count, True).FirstOrDefault(), TextBox)
            Dim Tmax = CType(Controls.Find("tbmax" & Count, True).FirstOrDefault(), TextBox)
            If Tnumber.Text > Tmax Then
                'do something
next
end if

Dim tbnumber_textboxes As New List(Of TextBox) From {tbNumber1,
     tbNumber2, tbNumber3, tbNumber4, tbNumber5, tbNumber6, tbNumber7,
     tbNumber8, tbNumber9}

Dim tbmax_textboxes As New List(Of TextBox) From {tbmax1, tbmax2,
     tbmax3, tbmax4, tbmax5, tbmax6, tbmax7, tbmax8, tbmax9}

If tbNumber_textboxes.Any(Function(cb) cb.Text) > tbMax_textboxes.Any(Function(cb) cb.Text) Then
'Do something
'For example msgbox("A number is larger than any of the max-textboxes")