Получить среднее арифметическое принятых данных с последовательного порта

Public Class Form1
Dim n1 As String
Dim P As Integer
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Tag = 0 Then
            Button1.Tag = 1
SerialPort1.BaudRate = "9600"
SerialPort1.Open()
Timer1.Enabled = True
        Else
            Button1.Tag = 0
SerialPort1.Close()
Timer1.Enabled = False
        End If
End Sub
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
n1 = SerialPort1.ReadExisting()
        If Microsoft.VisualBasic.Left(n1, 4) = "03H0" Then
            P = Microsoft.VisualBasic.Right(n1, 5)
        End If
Label1.Text = P 'Данные получаю и отображаются в цифрах вида "****". К примеру "0250"
End Sub
 
End Class

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        n1 = SerialPort1.ReadExisting()
        If Microsoft.VisualBasic.Left(n1, 4) = "03H0" Then
            P = Microsoft.VisualBasic.Right(n1, 5)
        End If
 
        Dim n As Integer = 8
        Static k As Integer = 0, arr(n - 1) As Integer
        arr(k) = Val(P)
        k += 1
        If k >= n Then
            k = 0
            Dim sum As Integer = 0
            For i As Integer = 0 To n - 1
                sum += arr(i)
            Next
            Label1.Text = Math.Round(sum / n, 2).ToString
        End If
 
 
        'Label1.Text = P 'Данные получаю и отображаются в цифрах вида "****". К примеру "0250"
    End Sub

 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        n1 = SerialPort1.ReadExisting()
        If Microsoft.VisualBasic.Left(n1, 4) = "03H0" Then
            P = Microsoft.VisualBasic.Right(n1, 5)
        End If
 
        Dim n As Integer = 8
        Static k As Integer = 0, arr(n - 1) As Integer
      If Val(P) < 3000 Then
           arr(k) = Val(P)
           k += 1
           If k >= n Then
                k = 0
                Dim sum As Integer = 0
                For i As Integer = 0 To n - 1
                   sum += arr(i)
                Next
            Label1.Text = Math.Round(sum / n, 2).ToString
            End If
       End If
 
        'Label1.Text = P 'Данные получаю и отображаются в цифрах вида "****". К примеру "0250"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        n1 = SerialPort1.ReadExisting()
        If Microsoft.VisualBasic.Left(n1, 4) = "03H0" Then
            P = Microsoft.VisualBasic.Right(n1, 5)
        End If
        Dim n As Integer = 8, n5 As Integer = 5, maxValue As Integer = 3000
        Static k As Integer = 0, m As Integer = 0, arr(n - 1) As Integer, stc(n - 1) As Integer
        If Val(P) < maxValue Then
            arr(k) = Val(P)
            k += 1
            If k >= n Then
                k = 0 : m = 0
                Dim sum As Integer = 0
                For i As Integer = 0 To n - 1
                    sum += arr(i)
                Next
                Label1.Text = Math.Round(sum / n, 2).ToString
            End If
        Else
            m += 1
            If m >= n Then Label1.Text = "----" : k = 0 'если 3000 и больше выпало 8 раз подряд
        End If
        Dim cntMaxVal As Integer = 0
        For i As Integer = 0 To n - 1
            If i < n - 1 Then stc(i) = stc(i + 1) Else stc(n - 1) = Val(P)
            If stc(i) >= maxValue Then cntMaxVal += 1
        Next
        If cntMaxVal >= n5 Then Label1.Text = "----" : k = 0 'если 3000 и больше выпало 5 раз  в серии
    End Sub