Probleme entre deux precedure

Private Sub Label2_intensite_Click()
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox2_intensite.Visible = True

R = TextBox1_resistance.Value
U = TextBox3_tension.Value
I = U / R
MsgBox "I=" & I
Sheets("Feuil1").Range("c7").Interior.ColorIndex = 27
Sheets("Feuil1").Range("c9") = I

End If

End Sub

Private Sub Label3_tension_Click()
Dim R As Integer, U As Integer, I As Integer
If TextBox1_resistance <> 0 And TextBox2_intensite <> 0 Then
TextBox3_tension.Visible = False
R = TextBox1_resistance.Value
I = TextBox2_intensite.Value
U = R * I
MsgBox "U=" & U
Sheets("Feuil1").Range("c9").Interior.ColorIndex = 28
Sheets("Feuil1").Range("c9") = U
TextBox2_intensite = " "
End If
End Sub
le problème est que lorsque je teste la deuxième procédure j'obtiens une erreur car I est tester des la première fois comment faire
il s'agit de I qui prends la valeur de son trextbox
je ne sais pas comment faire qui peut m'aider
Une grand merci d'avance