VB'de bu birçok şekilde yapılabilir, aşağıda ilk aklıma geleni yazıyorum, textboxların hem doluluk kontrolünü hemde sıfırdan büyük olma kontrolünü yapıyor. Ben Hesapla adında bir butonun click yordamına atadım, sonucu Textboxa değilde bir Label a yazdırabilirsin.
------------------------
Private Sub hesapla_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hesapla.Click
Dim Sonuc As Double = 0
If PR1.TextLength > 0 And Val(PR1.Text) > 0 Then Sonuc += (1 / Val(PR1.Text))
If PR2.TextLength > 0 And Val(PR2.Text) > 0 Then Sonuc += (1 / Val(PR2.Text))
If PR3.TextLength > 0 And Val(PR3.Text) > 0 Then Sonuc += (1 / Val(PR3.Text))
If PR4.TextLength > 0 And Val(PR4.Text) > 0 Then Sonuc += (1 / Val(PR4.Text))
If PR5.TextLength > 0 And Val(PR5.Text) > 0 Then Sonuc += (1 / Val(PR5.Text))
If PR6.TextLength > 0 And Val(PR6.Text) > 0 Then Sonuc += (1 / Val(PR6.Text))
PSonuc.Text = FormatNumber(Sonuc, 2)
End Sub