Como añadir una columna nueva en un datagridview con datos

[gjcfm5]

Buenas tardes
Estoy haciendo mis primeros codigos en VB.NET asi quesoy nuevo en esto.

Agraceceré puedan orientarme con lo siguiente:

Tengo un datagridview al cual se llena con datos procecentes de una hoja de excel y automaticamente genera las columnas MD Y TVD.

Una vez que estos datos estan cargados en el datagridview, realizo las operaciones matematicas : Desvo y Desplazar, utilizando los datos
obtenidos MD Y TVD. Los valores calculados y almacenados en las variables (Desvo y Desplazar) necesito mostrarlos ahora en las columnas DESV y DESPLAZAR RESPECTIVAMENTE. ES decir:

los valores calculados y almacenados en la variable Desvo ------se deben mostrar en la columna DESV

los valores calculados y almacenados en la variable Desplazar ------se deben mostrar en la columna DESPLAZAR

El problema que se me ha presentado es que al ejecutar esto, en el datagridview solo me muestra las columnas MD Y TVD , "logico"
pero las coolumnas DESV Y DESPLAZAR estan en blanco,


Ejemplo:

MD TVD DESV DESPLAZAR
30.48 30.48
60.96 60.96
91.44 91.441
121.92 121.91
182.88 182.88


El codigo que he estado derrollando es el siguiente:

Private Sub ButtonFohijo1c_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFohijo1c.Click


With DataGridView1

.DataSource.Columns.Add("DESV")
.DataSource.Columns.Add("DESPLAZAR")


'¡¡¡CODIGO QUE OBTIENE LA DESVIACION DE DOS COULUMNAS DE DATOS......MD Y TVD

Try

Dim Dgv As Integer = Me.DataGridView1.Rows.Count
Dim i As Integer

For i = 0 To Dgv - 1

Dim Desvo As Double = Math.Acos((Convert.ToDouble(Me.DataGridView1(1, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(1, i).Value)) / (Convert.ToDouble(Me.DataGridView1(0, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(0, i).Value))) / 3.1416 * 180
Me.DataGridView1(2, i + 1).Value = Desvo.ToString("N2")


¡¡CODIGO QUE OBTIENE el desplazamiento DE DATOS.....apatir de MD Y TVD


Dim Desplazar As Double = Convert.ToDouble(Me.DataGridView1(0, i + 1).Value) - Convert.ToDouble(Me.DataGridView1(0, i).Value) * Math.Sin((Convert.ToDouble(Me.DataGridView1(2, i + 1).Value)) / 180 * 3.1416) + Convert.ToDouble(Me.DataGridView1(3, i))
Me.DataGridView1(3, i + 1).Value = Desplazar.ToString("N2")


Next i

Catch ex As Exception



End Try


End With

End Sub