Dim arr() As String Sub From_dgv_to_Araay() Dim a As String For i = 0 To DataGridView1.Rows.Count - 1 ReDim Preserve arr(i) a = DataGridView1.Rows(i).Cells(0).Value arr(i) = a Next End Sub