Private Sub CommandButton4_Click()
Dim n1#, n2#, n As Byte
If IsNumeric(Replace(TextBox1, ".", "")) Then _
n1 = Val(Replace(TextBox1, ",", ".")): n = 1
If IsNumeric(Replace(TextBox2, ".", "")) Then _
n2 = Val(Replace(TextBox2, ",", ".")): n = n + 1
If n Then Label133 = (n1 + n2) / n Else Label133 = ""
End Sub