Visual Basic - cargar guion en DNI datagridview VB.net

buen dia
como se puede hacer que al seleccionar la fila de DATAGRIDVIEW de VB.net de cierta columna se cargue en el textbox con guiones. ejemplo

1 columna..................2 columna......................3 columna
2516196800001.........carlos josue....................pineda

textbox=2516-1968-00001

gracias de antemano

Hola, bueno este es foro de VB6 pero igual lo que se debe hacer es leer la fila en seleccionada y luego pasar los valores a un textbox teniendo el cuidado de formatearlos en el caso que indicas para este caso puedes crear un objeto especial que reciba el formateo ya predefinido o en otro caso formatearlo en ejecución.
Imagino que habrán algunas funciones posibles pero para este caso use la antigua que se usa en VB6 y que también es soportada en VB.net.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DGV1.ColumnCount = 3
DGV1.RowCount = 3
'DGV1.ColumnHeadersVisible = False
DGV1.RowHeadersVisible = False
DGV1(0, 0).Value = "2516196800001"
DGV1(1, 0).Value = "carlos josue"
DGV1(2, 0).Value = "pineda"
DGV1(0, 1).Value = "1516196800001"
DGV1(1, 1).Value = "Jose Ruiz"
DGV1(2, 1).Value = "Escalante"
End Sub

Private Sub DGV1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGV1.CellContentClick
Dim FilaActual As Integer
FilaActual = DGV1.CurrentRow.Index
txtdni.Text = Mid(DGV1.Rows(FilaActual).Cells(0).Value, 1, 4) + "-" + Mid(DGV1.Rows(FilaActual).Cells(0).Value, 5, 4) + "-" + Mid(DGV1.Rows(FilaActual).Cells(0).Value, 9, 5)
txtApellido.Text = DGV1.Rows(FilaActual).Cells(1).Value
txtNombre.Text = DGV1.Rows(FilaActual).Cells(2).Value
End Sub
End Class

Hola si el texto tiene siempre la misma longitud seria algo asi


para tu ejemplo


Saludos.