求大神们帮我改下程序 我以前学的是c# 才刚开始学vb 谢谢

Public NotInheritable Class GradingCriteria
    Inherits StyleBase

    '****************挖方边坡参数初始化******************************************
  FUNCTION CUTSLOPE_INFO_INIT:
        '*--------挖方边坡参数初始化
    CutSorbHigh   = 3.00 |挖方最后一级吸收高度
    LOOP kp=1;20
        CutSlopeHigh(kp)       = 8    |边坡高
        CutSlopeValue(kp)      = 1.00 |边坡坡率
        CutStageWidth(kp)      = 2.00 |边坡平台宽度
        CutStageSlope(kp)      = 4    |边坡平台坡率
        CutStartArcSign(kp)    = 0    |起点圆角标识
        CutStartArcWidth(kp)   = 0.00 |起点圆角宽度
        CutSlopePlySign(kp)    = 0    |边坡铺砌标识
        CutSlopePly(kp)        = 0.00 |边坡铺砌厚度
        CutSlopeBaseWidth(kp)  = 0.01 |边坡铺砌底宽
        CutCrownDitchSign(kp)  = 0    |平台截水沟标识
        CutCrownDitchWidth(kp) = 0.00 |平台截水沟宽度
        CutEndArcSign(kp)      = 0    |终点圆角标识
        CutEndArcWidth(kp)     = 0.00 |终点圆角宽度
    END LOOP
    CutSlopeHigh(20)       = 400    |第20级边坡高  
END FUNCTION
End Class
kp代表的是循环的次数，这个程序格式有什么错误的地方请指出来