Visual Basic - Ayuda con un Datagrid

Hola foreros quisiera saber como puedo hacerle para copiar los datos que hay en un datagrid al portapapeles.

Primero genero una consulta para mostrar los datos que quiero, y luego quiero utilizar un boton para copiar los datos al portapapeles.

tengo un codigo pero solo me copia los de la columna seleccionada y yo quiero todas la columnas que aparecen, las columnas que quiero que copie son 4.

asi aparece mi Datagrid

FECHA HORAS MINUTOS PACIENTE

17/06/06 14 00 NOMBRE
18/06/06 18 00 NOMBRE

y asi es como quiero que lo copie al portapapeles

muchas gracias

Saludos

For i = 0 To datagrid1.ApproxCount - 1
Datos = CStr(Datos & datagrid1.Columns("fecha").CellValue(datagrid1.GetBookmark(i)))
Datos = Datos & " " & datagrid1.Columns("horas").CellValue(datagrid1.GetBookmark(i))
Datos = Datos & " " & datagrid1.Columns("minutos").CellValue(datagrid1.GetBookmark(i))
Datos = Datos & " " & datagrid1.Columns("Paciente").CellValue(datagrid1.GetBookmark(i)) & vbNewLine
DoEvents
Next
Clipboard.Clear
Clipboard.SetText Datos

Cada vez piden cosas mas raras