CONVERTER DE VB2005 PARA VB6

Private Sub Button1_Click()

          Dim lta, ltam, lga, lgam, ltb, ltbm, lgb, lgbm, a, b, c, x, y, z, d, am As Double

        If Me.cboltaoorientacao.Text = "N" Then lta = Me.lata.Text
        If Me.cboltaoorientacao.Text = "S" Then lta = Me.lata.Text * -1
        ltam = Me.latam.Text
        lga = Me.longA.Text
        lgam = Me.longam.Text
        ltb = Me.latb.Text
        ltbm = Me.latbm.Text
        lgb = Me.longB.Text
        lgbm = Me.longbm.Text

        If lta < 0 Then ltam = ltam * -1
        If lga < 0 Then lgam = lgam * -1
        If ltb < 0 Then ltbm = ltbm * -1
        If lgb < 0 Then lgbm = lgbm * -1

        lta = lta + ltam / 60
        lga = lga + lgam / 60
        ltb = ltb + ltbm / 60
        lgb = lgb + lgbm / 60

        b = 90 - ltb
        c = 90 - lta
        am = (lgb - lga)
        If am < 0 Then am = am * -1
        x = Math.Cos(b * Math.pi / 180) * Math.Cos(c * Math.pi / 180)
        y = Math.Sin(b * Math.pi / 180) * Math.Sin(c * Math.pi / 180) * Math.Cos(am * Math.pi / 180)
        a = Math.acos(x + y) * 180 / Math.pi
        d = a
        a = Math.v((a - Math.Floor(a)) * 60) + Math.Floor(a) * 60
        x = Math.Cos(b * Math.pi / 180) - Math.Cos(c * Math.pi / 180) * Math.Cos(d * Math.pi / 180)
        y = Math.Sin(c * Math.pi / 180) * Math.Sin(d * Math.pi / 180)
        d = Math.Floor(Math.acos(x / y) * 180 / Math.pi + 0.5)
        If am < 180 Then d = 360 - d

        Me.ml.Text = a
        a = Math.Floor(a * 1.852 + 0.5)
        Me.km.Text = a
        Me.rm.Text = d

End Sub