Dim Worktime As Decimal
        Dim PricePerMinute As Decimal
 
        PricePerMinute = CDec(Config.ReadValue("Calculate", "minuteprice")) _
          '<== Hier bekomme ich die Fehlermeldung
        Try
            Worktime = CDec(edArbeitszeitWert.Text.Replace(".", decsep))
        Catch ex As Exception
            MsgBox("Fehlerhafte Konvertierung #3")
        End Try
        Dim WorktimeSum As Decimal
        WorktimeSum = CDec(Worktime * PricePerMinute)
 
        edArbeitszeitSumme.Text = Format(WorktimeSum, "0.00")