Private Sub Command1_Click( )

Dim Thin As Single, Th12 As Single, Th13 As Single, Th14 As Single, Th15 As Single
Dim Th16 As Single, Th17 As Single, Th18 As Single, Th19 As Single, Th110 As Single

Dim Tcin As Single, Tc21 As Single, Tc22 As Single, Tc23 As Single, Tc24 As Single, Tc25 As Single
Dim Tc26 As Single, Tc27 As Single, Tc28 As Single, Tc29 As Single
Dim Th32 As Single, Th33 As Single, Th34...