Public Shared Property VolStrom As Double
            Get
                Return _vStrom
            End Get
            Set(ByVal value As Double)
                _vStrom = value
                VStromBerechnet(DA7024.VorgCh1)
            End Set
        End Property

        Public Shared Function VStromBerechnet(ByVal Voltage As Double) As _
          String
            If _Spann = 0 Then _Spann = 0.00001
            If Voltage > _Spann Then
                Return CStr(_vStrom)
            Else
                Return (Voltage / (_Spann) * _vStrom).ToString("N2")
            End If
        End Function

Ahnungsloser ahnungsloser...