请问关于算法优化有关问题，

请教关于算法优化问题，急！
请教各位大神下面的代码用到一些简单的算法，想请问该如何优化，提升程序的运行速度，谢谢！

'*************************************************

'function   :Data Calcuration

'               Valu.AveGaik(Valu.MaxGaik, Valu.MinGaik)

'               Valu.MaxFure

'               Valu.Entdo

'               Valu.Result

'parameter  :non

'result     :true=OK   false=NG

'*************************************************

Private Function uflCalc()

    Dim i, hed As Integer

    Dim RestFg As Boolean

    RestFg = True

     

    '--- Base Calcuration

    For hed = 1 To 3

        '--- 外径平均值计算

        Dim AveGaik As Double

        AveGaik = 0

        For i = 1 To Spec(0).Point

            AveGaik = AveGaik + Inpt(hed).Gaik(i)

        Next

        

        If AveGaik > 0 Then

            Valu.AveGaik(hed) = ufgChgValu(AveGaik / Spec(0).Point)

        Else

            Valu.AveGaik(hed) = 0

        End If

        

        '--- 外径 Data Error Check

        If Valu.AveGaik(hed) = 0 Then

            RestFg = False

            Valu.Result(hed) = "MISS"

        End If

        

        '--- 外径最大值，最小值，圆筒度计算

        Valu.MaxGaik(hed) = 0