[VB6] Controllo dei singoli valori inseriti in una MSFlexGrid

[maximum]

Ho risolto creandomi una function appoosita:

Public Function ControllaInsFattura(grd As Control) As Boolean

    Dim k_ind As Integer
    Dim errMsg As String
    
    ControllaInsFattura = True
    k_ind = 1
    
    For k_ind = 1 To grd.Rows - 1
        If (grd.TextMatrix(k_ind, 0) <> "" Or _
            grd.TextMatrix(k_ind, 1) <> "" Or _
            grd.TextMatrix(k_ind, 2) <> "" Or _
            grd.TextMatrix(k_ind, 3) <> "") Then
            If Not (grd.TextMatrix(k_ind, 0) <> "" And _
                    grd.TextMatrix(k_ind, 1) <> "" And _
                    grd.TextMatrix(k_ind, 2) <> "" And _
                    grd.TextMatrix(k_ind, 3) <> "") Then
                    errMsg = errMsg & "Errore riga " & CStr(k_ind) & " del dettaglio della Fattura." & vbCrLf & _
                                      "Per ogni riga compilata i campi Quantità, Descrizione della Fornitura, % iva e Importo sono obbligatori" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
                    ControllaInsFattura = False
            Else
                If Len(grd.TextMatrix(k_ind, 3)) > 15 Then
                    errMsg = errMsg & "Errore riga " & CStr(k_ind) & " del dettaglio della Fattura." & vbCrLf & _
                                      "Valore non ammesso nel campo Importo" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
                    ControllaInsFattura = False
                End If
            End If
        End If
    Next
    
    If grd.TextMatrix(1, 0) = "" And _
       grd.TextMatrix(1, 1) = "" And _
       grd.TextMatrix(1, 2) = "" And _
       grd.TextMatrix(1, 3) = "" Then
        errMsg = "Errore del dettaglio della Fattura." & vbCrLf & _
                 "Occorre valorizzare almeno una riga" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
        ControllaInsFattura = False
    End If
    
    If errMsg <> "" Then
        MsgBox errMsg, vbApplicationModal + vbCritical, "Prova Max 2"
    End If

End Function