Hola tengo este código y quisiera haber si alguien me puede ayudar a ver mi error.

Private Sub Crear()
Try
If objEtiqueta.Crear() = True Then
MessageBox.Show("La tabla de Etiquetas ha sido creada", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Information)
EtiquetasBindingSource.DataSource = objEtiqueta.GetAll()
Dim vEtiquetas As Etiquetas = TryCast(EtiquetasBindingSource.Current, Etiquetas)
dgv.DataSource = EtiquetasBindingSource
Call cargaMatriz()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub cargaMatriz()
Try
Dim numero As Integer = 0
fil = objEtiqueta.GetLineas() - 1 'función que retorna el número de lineas del datagridview
col = objEtiqueta.GetCeldas() - 1 'funcion que retorna el número de celdas por linea del datagridview
Dim f, c As Integer
ReDim matriz(fil, col)
For f = 0 To fil
For c = 0 To col
If fil = 0 Then
MessageBox.Show("no hay datos de etiquetas", "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
matriz(f, c) = Convert.ToString(dgv.Rows(f).Cells(c).Value)
c += 1
End If
Next
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Advertencia", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Muchas gracias