Problema al recorrer Datagridview y volcar datos a .txt

[the_truth]

Hola, buenas. Estoy en la tarea de generar un fichero de texto plano con el resultado de una de las columnas del datagridview, es decir todos los registro de una columna.

Dim ruta As String = My.Application.Info.DirectoryPath & ("\dni.txt")
Dim writer As IO.StreamWriter = New IO.StreamWriter(ruta)
Dim x As Integer = 0
If (Datagridview1.Rows.Count > 0) Then
For Each fila As DataGridViewRow In Me.Datagridview1.Rows
Dim strdata As String = fila.Cells("dni").Value.ToString()
writer.WriteLine(strdata)
writer.WriteLine("")
Next
End If

writer.Close()
MsgBox("Fichero de errores creado en ruta " + ruta)


El fichero se crea, mi problema es que me dice que "Object reference not set to an instance of an object.". El fichero se crea con todos los registros, pero cuando llega al último registro del datagridview, sale ese mensaje de error.

Como podría conseguir recorrer el datagridview sin que me aparezca este problema?. Gracias de antemano foreros.