Just wondering if there is a way to make these shorter, they're so repetitive and take AGES to fillout.

Code:
                        If Val(Text1) = 16 Or Val(Text2) = 16 Or Val(Text3) = 16 Or Val(Text4) = 16 Or Val(Text5) = 16 Or Val(Text6) = 16 Or Val(Text7) = 16 Or Val(Text8) = 16 Or Val(Text9) = 16 Or Val(Text10) = 16 _
            Or Val(Text11) = 16 Or Val(Text12) = 16 Or Val(Text13) = 16 Or Val(Text14) = 16 Or Val(Text15) = 16 Or Val(Text16) = 16 Or Val(Text17) = 16 Or Val(Text18) = 16 Or Val(Text19) = 16 Or Val(Text20) = 16 _
            Or Val(Text21) = 16 Or Val(Text22) = 16 Or Val(Text23) = 16 Or Val(Text24) = 16 Or Val(Text25) = 16 Or Val(Text26) = 16 Or Val(Text27) = 16 Or Val(Text28) = 16 Or Val(Text29) = 16 Or Val(Text30) = 16 _
            Or Val(Text31) = 16 Or Val(Text32) = 16 Or Val(Text33) = 16 Or Val(Text34) = 16 Or Val(Text35) = 16 Or Val(Text36) = 16 Or Val(Text37) = 16 Or Val(Text38) = 16 Or Val(Text39) = 16 Or Val(Text40) = 16 _
            Or Val(Text41) = 16 Or Val(Text42) = 16 Or Val(Text43) = 16 Or Val(Text44) = 16 Or Val(Text45) = 16 Or Val(Text46) = 16 Or Val(Text47) = 16 Or Val(Text48) = 16 Or Val(Text49) = 16 Or Val(Text50) = 16 _
            Or Val(Text51) = 16 Or Val(Text52) = 16 Or Val(Text53) = 16 Or Val(Text54) = 16 Or Val(Text55) = 16 Or Val(Text56) = 16 Or Val(Text57) = 16 Or Val(Text58) = 16 Or Val(Text59) = 16 Or Val(Text60) = 16 _
            Or Val(Text61) = 16 Or Val(Text62) = 16 Or Val(Text63) = 16 Or Val(Text64) = 16 Or Val(Text65) = 16 Or Val(Text66) = 16 Or Val(Text67) = 16 Or Val(Text68) = 16 Or Val(Text69) = 16 Or Val(Text70) = 16 _
            Or Val(Text71) = 16 Or Val(Text72) = 16 Or Val(Text73) = 16 Or Val(Text74) = 16 Or Val(Text75) = 16 Or Val(Text76) = 16 Or Val(Text77) = 16 Or Val(Text78) = 16 Or Val(Text79) = 16 Or Val(Text80) = 16 _
            Or Val(Text81) = 16 Or Val(Text82) = 16 Or Val(Text83) = 16 Or Val(Text84) = 16 Or Val(Text85) = 16 Or Val(Text86) = 16 Or Val(Text87) = 16 Or Val(Text88) = 16 _
            Then AL16.Caption = "USED" Else AL16.Caption = " "
Code:
    If Label1 = 0 Then MsgBox "No Computer Selected"
    If Label1 = 1 Then Text1 = Val(Label2)
    If Label1 = 2 Then Text2 = Val(Label2)
    If Label1 = 3 Then Text3 = Val(Label2)
    If Label1 = 4 Then Text4 = Val(Label2)
    If Label1 = 5 Then Text5 = Val(Label2)
    If Label1 = 6 Then Text6 = Val(Label2)
    If Label1 = 7 Then Text7 = Val(Label2)
    If Label1 = 8 Then Text8 = Val(Label2)
    If Label1 = 9 Then Text9 = Val(Label2)
    If Label1 = 10 Then Text10 = Val(Label2)
    If Label1 = 11 Then Text11 = Val(Label2)
    If Label1 = 12 Then Text12 = Val(Label2)
    If Label1 = 13 Then Text13 = Val(Label2)
    If Label1 = 14 Then Text14 = Val(Label2)
    If Label1 = 15 Then Text15 = Val(Label2)
    If Label1 = 16 Then Text16 = Val(Label2)
    If Label1 = 17 Then Text17 = Val(Label2)
    If Label1 = 18 Then Text18 = Val(Label2)
    If Label1 = 19 Then Text19 = Val(Label2)
    If Label1 = 20 Then Text20 = Val(Label2)
    If Label1 = 21 Then Text21 = Val(Label2)
    If Label1 = 22 Then Text22 = Val(Label2)
    If Label1 = 23 Then Text23 = Val(Label2)
    If Label1 = 24 Then Text24 = Val(Label2)
    If Label1 = 25 Then Text25 = Val(Label2)
    If Label1 = 26 Then Text26 = Val(Label2)
    If Label1 = 27 Then Text27 = Val(Label2)
    If Label1 = 28 Then Text28 = Val(Label2)
    If Label1 = 29 Then Text29 = Val(Label2)
    If Label1 = 30 Then Text30 = Val(Label2)
    If Label1 = 31 Then Text31 = Val(Label2)
    If Label1 = 32 Then Text32 = Val(Label2)
    If Label1 = 33 Then Text33 = Val(Label2)
    If Label1 = 34 Then Text34 = Val(Label2)
    If Label1 = 35 Then Text35 = Val(Label2)
    If Label1 = 36 Then Text36 = Val(Label2)
    If Label1 = 37 Then Text37 = Val(Label2)
    If Label1 = 38 Then Text38 = Val(Label2)
    If Label1 = 39 Then Text39 = Val(Label2)
    If Label1 = 40 Then Text40 = Val(Label2)
    If Label1 = 41 Then Text41 = Val(Label2)
    If Label1 = 42 Then Text42 = Val(Label2)
    If Label1 = 43 Then Text43 = Val(Label2)
    If Label1 = 44 Then Text44 = Val(Label2)
    If Label1 = 45 Then Text45 = Val(Label2)
    If Label1 = 46 Then Text46 = Val(Label2)
    If Label1 = 47 Then Text47 = Val(Label2)
    If Label1 = 48 Then Text48 = Val(Label2)
    If Label1 = 49 Then Text49 = Val(Label2)
    If Label1 = 50 Then Text50 = Val(Label2)