Iterating through a dictionary in VB .Net

For Each myKey As KeyValuePair(Of String, String) In dicDataValues
    Dim sColumn As String
    Dim sValue As String
    sColumn = myKey.Key
    sValue = myKey.Value.ToString
    Dim dr As DataRow
    dr = dt.NewRow
    dr("ColumnName") = sColumn
    dr("Value") = sValue
    dt.Rows.Add(dr)

Next