Dim var() As Variant
Dim pos As Variant
ReDim var(1093 To 1094, 1 To 2) As Variant
var(1093, 1) = "Testmann"
var(1093, 2) = 1500
var(1094, 1) = "Testfrau"
var(1094, 2) = 2000
pos = ArrayGetIndex(var, "Testmann")
If Not(IsNull(pos)) Then
MessageBox var(pos, 1) & Chr (10) & var(pos, 2)
End If