Dim t1, b1, i1
b1 = 0
t1 = 0
For i1 = 0 To 7
If Text1(i2) <> "" Then
t1 = t1 + Val(Text1(i1))
b1 = b1 + 1
End If
Next
Label7.Caption = t1 \ b1
End Sub

Dim t2, b2, i2
b2 = 0
t2 = 0
For i2 = 0 To 7
If Text2(i2) <> "" Then
t2 = t2 + Val(Text2(i2))
b2 = b2 + 1
End If
Next
Label10.Caption = t2 / b2
End Sub

Dim t3, b3, i3
b3 = 0
t3 = 0
For i3 = 0 To 7
If Text3(i3) <> "" Then
t3 = t3 + Val(Text3(i3))
b3 = b3 + 1
End If
Next
Label11.Caption = t3 / b3
End Sub

Arkadaşlar bu kodlar tek 1 butonda çalışmakta..çakışma felan oluyor galiba.
her kısımı ayrı çalıştıracak şekilde nasıl bir kodlama yapabiliriz acaba..
şimdiden teşekkürler.