Dim curSumEin As Currency
Dim curSumAus As Currency
Dim lRow As Long
 
With MSFlexGrid1
  For lRow = .FixedRows To .Rows - 1
    curSumEin = CCur(.TextMatrix(lRow, 1))
    curSumAus = CCur(.TextMatrix(lRow, 2))
  Next lRow
End With
 
lblSumEin.Caption = Format(curSumEin, "Currency")
lblSumAus.Caption = Format(curSumAus, "Currency")