SoloCodigo

Buenas noches.
Estoy realizando una aplicación en VB.NET 2010 EXPRESS

Agradeceré su ayuda para lo siguiente:
Tengo una Datagridview1, el cual se carga con datos procedentes de una hoja de Excel.
Los datos enviados se almacenan en dos columnas (MD Y TVD) del Datagridview con los características siguientes:
      A         B         C
     MD        TVD      DESV
 0     0         0        
 1    30.48    30.48 .....DESV1
 2    60.96    60.96......DESV2
 3    91.44    91.44......DESV3
 4    121.92   121.92
 5    152.4    152.4
 6    182.88   182.88
 7    213.36   213.36
 8    243.84   243.84
 9    274.32   274.32
 10  304.8     304.8
 11  335.28   335.28
 12  365.76   365.76
 13  396.24   396.24
 14  426.72   426.72
 15  457.2     457.2
 16  487.68   487.68
 17  1066.8   1066.75
 18  1097.28  1097.23
 19  1114      1113.95
 20  1118      1117.95
 21  1123      1122.95
 22  1132.3   1132.23
 23  1141.5   1141.4
 24  1150.3   1150.16 .... DESV 24

CON LOS DATOS ANTERIORES REQUIERO PUEDAN AYUDARME CON ALGÚN CODIGO EN VB.NET PARA PODER EVALUAR LOS VALORES ANTERIORES
EN LA SIGUIENTE FUNCIÓN:

DESV = COS ((A1-A0)/(B1-B0))/3.1416*180

PARA PODER DAR UNA MEJOR DESCRIPCION DE LA FUNCIÓN QUE REUQIERO EVALUAR los numeros del 0---24, representan las filas.
A Y B LAS COLUMNAS COMO EN EXCEL. ENTONCES LA FUNCIÓN SERIA.

DESV = COS ((A1-A0)/(B1-B0))/3.1416*180
OSEA   COS ((30.48-0)/(30.48-0)/3.1416*180
           
          ((A2-A1)/(B2-B1))/3.1416*180
          ((60.96-30.48)/(60.96-30.48))/3.1416*180

          ((A3-A1)/(B3-B1))/3.1416*180
              .       .´        .
              .       .         .
              ETC...

DONDE

D.ONDE COS= FUNCION TRINOMETRICA

LOS VALORES CALCULADOS POR CADA FILA O CELDA DEBEN SER PUESTO EN LA COLUMNA "DESV"
COMO SE MUESTRA ARRIBA


EL CODIGO CON EL QUE CARGO DATOS DE EXCEL AL DATAGRIDVIEW ES EL SIGUIENTE.


Option Explicit On
Imports System.Data.OleDb
Public Class Fohijo1

    Dim dt As New DataTable

    Private Sub Fohijo1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub

    Private Sub ButtonFohijo1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1.Click

        Dim openFD As New OpenFileDialog()
        With openFD
            .Title = "Seleccionar archivos"
            .Filter = "Archivos Excel(*.xls;*.xlsx)|*.xls;*.xlsx|Todos los archivos (*.*)|*.*"
            .Multiselect = False
            .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                TextPathExcel.Text = .FileName
            End If

        End With

    End Sub

    Private Sub ButtonFohijo1a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1a.Click

        Try
            Dim stConexion As String
            stConexion = ("Provider=Microsoft.ACE.OLEDB.12.0;" & ("Data Source=" & (TextPathExcel.Text & ";Extended Properties=""Excel 12.0 Xml;HDR=YES;IMEX=2"";")))
            Dim cnConex As New OleDbConnection(stConexion)
            Dim Cmd As New OleDbCommand("Select * from [" & TextHoja.Text & "$]")
            Dim Ds As New DataSet
            Dim Da As New OleDbDataAdapter
            Dim Dt As New DataTable
            cnConex.Open()
            Cmd.Connection = cnConex
            Da.SelectCommand = Cmd
            Da.Fill(Ds)
            Dt = Ds.Tables(0)
            DataGridView1.DataSource = Dt
            cnConex.Close()

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try


    End Sub

    Private Sub ButtonFohijo1b_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1b.Click

        With DataGridView1

            .DataSource = Nothing

        End With

    End Sub


End Class