[VB6] Controllo dei singoli valori inseriti in una MSFlexGrid

[maximum]

Debbo inserire un controllo sulla mia form che preveda la seguente: alla pressione di un pulsante, devono essere scorse tutte le righe e le singole celle di una flexgrid e se per caso almeno una di queste presenta, per una riga, una cella null, il salvataggio dei dati venga inibito mediante msgbox.

Ho fatto qualcosa del genere;

k_ind = 1
    For k_ind = 1 To grdRipartizioni.Rows - 1
        If grdRipartizioni.TextMatrix(1, 0) = "" And _
           grdRipartizioni.TextMatrix(1, 1) = "" And _
           grdRipartizioni.TextMatrix(1, 2) = "" And _
           grdRipartizioni.TextMatrix(1, 3) = "" Then
            MsgBox "Prima di procedere al salvataggio delle informazioni, " & vbCrLf & _
                   "occorre specificare almeno una riga del dettaglio Fattura ", vbInformation, Me.Caption
            Exit For
        Else
            If grdRipartizioni.TextMatrix(k_ind, 0) = "" Or _
               grdRipartizioni.TextMatrix(k_ind, 1) = "" Or _
               grdRipartizioni.TextMatrix(k_ind, 2) = "" Or _
               grdRipartizioni.TextMatrix(k_ind, 3) = "" Then
                MsgBox "Prima di procedere al salvataggio delle informazioni, " & vbCrLf & _
                       "occorre completare la valorizzazione per le righe incomplete ", vbInformation, Me.Caption
                Exit For
            End If
        End If
    Next 

Nel primo if controllo che almeno una riga dev'essere compilata e nella seconda vorrei controllare quanto ho esposto prima.
Il problema nasce dal fatto che il codice si scorre comunque tute le righe previste e se le ultime non sono valorizzate, vengo bloccato nel salvataggio.
Come posso variare quel codice?

Grazie anticipatamente per l'aiuto.