Private Function analyser(ByVal wert As String) As Object
        Dim locdate As Date
        Dim locbetrag As Decimal = Nothing
        Dim loczahl As Double = Nothing
        Select Case True
 
            Case Date.TryParse(wert, locdate)
                Return CDate(wert)
 
            Case Decimal.TryParse(wert, locbetrag)
                Return CDec(wert)
 
            Case Double.TryParse(wert, loczahl)
                Return CDbl(wert)
 
         End Select
 
        Return Nothing
    End Function