Overloads Function gaget(ByVal such As String) As String
        Dim i As Integer
        For i = 0 To GA.GetUpperBound(0)
            If GA(i) = such Then
                Return strWert(i)
            End If
        Next
    End Function
    Overloads Function gaget(ByVal such As Integer) As Integer
        Dim i As Integer
        For i = 0 To GA.GetUpperBound(0)
            If GA(i) = such Then
                Return iWert(i)
            End If
        Next
    End Function