Dim y1, y2, y3, s1 As Integer
Dim bol = 0
Dim toplam As Integer
toplam = 0

If TextBox1.Text <> "" Then
toplam = toplam + TextBox1.Text
bol = bol + 1
End If

If TextBox2.Text <> "" Then
toplam = toplam + TextBox2.Text
bol = bol + 1
End If

If TextBox3.Text <> "" Then
toplam = toplam + TextBox3.Text
bol = bol + 1
End If
If TextBox4.Text <> "" Then
toplam = toplam + TextBox4.Text
bol = bol + 1
End If

If bol > 0 Then
TextBox5.Text = toplam / bol
Label6.Text = ""
Else
Label6.Text = "Lütfen not girişi yapın..."
End If