Aussiebear

I need correct syntax error show me red lines as bold to test your code!
 amount = CDbl(Replace(parts(UBound(Filter(parts, "PAID")) + 1)), ",", "."))                        End If
                    ElseIf
                        part = "RECEIVED" Then
                        receivedFound = True
                        ' Find the number after "RECEIVED"
                        If IsNumeric(parts(UBound(Filter(parts, "RECEIVED")) + 1)) Then
                            amount = CDbl(parts(UBound(Filter(parts, "RECEIVED")) + 1))
                        ElseIf UBound(Filter(parts, ",")) > -1 Then
                            ' Handle cases with comma as decimal separator
                            amount = CDbl(Replace(parts(UBound(Filter(parts, "RECEIVED")) + 1)), ",", "."))