Dim t() As TextBox = {txt_A, txt_B,txt_C}
 
        For Each box As TextBox In t
 
            box.BackColor = Color.Blue
 
            'Oder bei dir:
            If Not IsNumeric(box.Text) Then
 
                MsgBox("Dem geht nett")
 
            End If
 
        Next

________________________________________________________________

Du kannst mit deinem Computer ALLES machen was Du willst!
Allerdings musst Du erst herausfinden wie.....
________________________________________________________________