Private Function validateFields(iRow As Integer, iCol As Integer) As Boolean
    validateFields = False
    Select Case iCol
El valor de la columna 3 no debe de quedar vaci
    Case 3
        If SCGrid1.Text(iRow, iCol) = "" Then
            MsgBox SCGrid1.Text(-1, iCol) & " esta vaco. "
            Exit Function
        End If
El valor de las columnas 4 a la 9 debe de ser numrico
    Case 4 To 9
        If Not IsNumeric(SCGrid1.Text(iRow, iCol)) Then
            MsgBox SCGrid1.Text(-1, iCol) & " no es nmerico. "
            Exit Function
        End If
    End Select
    validateFields = True
End Function
