grasshopper中的vb编程问题求助

下面是代码  求求了帮帮小弟吧 

Private Sub RunScript(ByVal PenroseString As String, ByVal Length As Double, ByRef PenroseLines As Object) 
    Dim Pt As New Point3d(0.0, 0.0, 0.0)

    Dim arrPoints As New List( Of Point3d )

    Dim V As New Vector3d(1.0, 0.0, 0.0)

    Dim PtStack As New List( Of Point3d )
    Dim VStack As New List( Of Vector3d )

    Dim count As Integer = PenroseString.Length
    Dim i As Integer
    Dim Rule As Char

    For i = 0 To count - 1
      Rule = PenroseString(i)

      If Rule = "+" Then
        V.Rotate(OnUtil.On_DEGREES_TO_RADIANS * (+36.0), OnUtil.On_zaxis)
      End If

      If Rule = "-" Then
        V.Rotate(OnUtil.On_DEGREES_TO_RADIANS * (-36.0), OnUtil.On_zaxis)
      End