Få fram värdet ifrån varje fält i datagrid

Hej

Är det någon vänlig själ som vet hur man skall skriva om man vill få fram varje värde i datagrid och sparas ner i en textfil.

Här är lite pseudokod

    Dim i As Integer = 0
    For i = 0 To Datagrid1.Items.Count - 1
        sw.WriteLine(Datagrid1.Items.Item(1).DataItem & ";"  & Datagrid1.Items.Item(2).DataItem )

    Next i

Med detta vill jag få fram

Ford;Gul
Volvo;Röd
Saab;Vit