Error de compilacion: Atributo no valido en procediemiento o función

[yamiblancoc]

ALGUIEN ME PODRA AYUDAR CON ESTE ERROR DE COMPILACIÓN YA HE BUSCADO EN OTROS LADOS PERO NO HALLO LA SOLUCION SOY NUEVA PROGRAMANDO... SI ALGUIEN ME PUEDE AYUDAR SE LO AGRADESCO MUCHO....

Código:

Private Sub cmd_nuevo_Click()
 Dim verifica As Boolean
 txt_partida.Text = ""
 txt_detalle.Text = ""
 txt_debe.Text = ""
 txt_haber.Text = ""
 lbl_desc_pda.Caption = ""
 AddGrid.Row
 editando = False

Exit Sub


Private AddGridRow 
    'Verifica si ya la ultima fila introducida esta en blanco
    With MSFlexGrid1
         .Row = .Rows - 1
       If Trim(.TextMatrix(.Row, 0)) = "" Then
         Exit Sub
       End If
        .Rows = .Rows + 1
        .Row = .Rows - 1
    End With
End Sub

Private AddGridRow <---- LINEA DE ERROR, AUTOMATICAMENTE SE SOMBREA PRIVATE

[Kruzado]

no sera private SUB addgridrow??????