Hvis - Hvis ikke

Dårlig overskrift men det er  lige hvad min hjerne formår nu her

Jeg sidder og hygge programere
Jeg har bare et problem med en en regne funktion, Den skla først se om feltet er udfyldt og er det skal den regne det ud, Er det ikke jamen så skal den ikke, Men den melder fejl da den gerne vil regne de felter du der intet står i.
Og hvorfor gør den så det


Private Sub Command1_Click()
Dim Volt As String
Dim Amp As String
Dim Modstand As String
Dim Watt As String

'Variabler
If Text1.Text > "" Then
U = Text1.Text
End If

If Text2.Text > "" Then
R = Text2.Text
End If

If Text3.Text > "" Then
I = Text3.Text
End If

If Text4.Text > "" Then
W = Text4.Text
End If


'Regneregler
If I > "" & R > "" Then
Volt = I * R
End If
If U > "" & R > "" Then
Amp = U / R
End If
If U > "" & I > "" Then
Modstand = U / I
End If
If U > "" & I > "" Then
Watt = U * I
End If

'Resultat felter
Text5.Text = Volt
Text6.Text = Modstand
Text7.Text = Amp
Text8.Text = Watt

End Sub

MC