VBA intersecções

Em Visual Studio, para calcular os pk e cotas de valor inteiro entre dois pontos da rasante...


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim PKi As Double
        Dim Vi As Double
        Dim PKf As Double
        Dim Vf As Double
        Dim DistPK As Double
        Dim arred_pk, arred_cota As Double
        Dim quadroV1(6, 19) As Double
        Dim quadroV2(6, 19) As Double
        Dim quadro_int(4, 361) As Double
        Dim linha As Integer
        Dim i As Double
        Dim angulo As Double
        Dim pkt, Vt As Double

...