Public Class Helpers
    Inherits Constants
    Friend Shared Function Convert_VectorType(vType As Object, value As String)
        Select Case vType
            Case INDEX_TYPE_HASH ' 36865
                'Umwandeln in String
                Return CStr(value)
            Case INDEX_TYPE_VECTOR_STRING '4097
                'Umwandeln in String
                Return CStr(value)
            Case INDEX_TYPE_VECTOR_INTEGER '4098
                'Umwandeln in Integer
                value = value.ToString.Replace(" ", "")
                Return CInt(value)
            Case INDEX_TYPE_VECTOR_FLOAT  '4099
                Dim Str As String = value
                Str = Str.ToString.Replace(" ", "")
                'Umwandeln in Double
                Return CDbl(Str.Replace(".", ","))
            Case INDEX_TYPE_VECTOR_BOOLEAN '4100
                'Umwandeln in Boolean
                Return CBool(value)
            Case INDEX_TYPE_VECTOR_DATE '4101
                'Umwandeln in Date
                Return CDate(value)
            Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
                Return Convert.ToInt64(value)
            Case INDEX_TYPE_VECTOR_DATE_TIME '4103
                'Umwandeln in Datum Uhrzeit
                Return value
            Case Else
                'Umwandeln in String
                Return CStr(value)
        End Select
    End Function
End Class