ReDim TeamArray(0 To DataGridView3.RowCount - 2, 0 To (lbSource.Items.Count - _
  1))
 For i As Integer = 0 To TeamArray.GetLength(0) - 1
                        For n As Integer = 0 To TeamArray.GetLength( _
                          lbsource.Items.Count) - 1
                            If TeamArray(i, n).Length > 25 Then
                                TeamArray(i, n) = TeamArray(i, n).Substring(0, _
                                  25)
                            End If
                        Next
                    Next