To Check 102 Fields If They Are Numeric

I have got 102 quantity of TextBoxes in my form.

Each field represents the number of "SALE QUANTITY" , "FREE GIVEN" , "RETURNED" products. We have got 34 PRODUCTS range. (34 x 3 fields = 102 textfields)


The name of the TextBox fields are as follows :

PR01S , PR01B , PR01K

PR02S , PR02B , PR02K

...

...

PR34S , PR34B , PR34K

All of the fields are required to be numeric data only. How can i check this fields to be numbers on the same time of the data input (or when jumping to the next field. There will be a message box mentioning that the field can only contain numbers + SetFocus to the wrong input field) ?

I dont want to write same code for each item, its too hard and long..

If i can solve this problem, then I will need help to enter the values from this fields to the worksheet because I must find a way to enter the values with a for next loop or something.. I dont want to do it one by one.

Here is how the form looks :

I dont know if there is a possibility to exclude the product to be entered in the worksheet if all 3 boxes are Zero (0) for that specific item.

Example : If all fields are "0" for item "Coke" then I dont want this products information entered in the excel worksheet.

0 Sale , 0 Free, 0 Return