For i = Len(vName) To 1 Step -1   ' -Jungs
    vSub = Mid(vName, i, Len(vName) + 1 - i)
    Select Case Len(vName) + 1 - i
      Case 4
        av = ArrayIndexof(p1, vSub)
        w3 = w3 + (av >= 0)
      Case 5
        av = ArrayIndexof(p2, vSub)
        w3 = w3 + (av >= 0)
      Case 6
        av = ArrayIndexof(p3, vSub)
        w3 = w3 + (av >= 0)
    End Select
  Next i
  For i = Len(vName) To 1 Step -1   ' -Jungs
    vSub = Mid(vName, i, Len(vName) + 1 - i)
    Select Case Len(vName) + 1 - i
      Case 2
        av = ArrayIndexof(v1, vSub)
        w2 = w2 + (av >= 0)
      Case 3
        av = ArrayIndexof(v2, vSub)
        w2 = w2 + (av >= 0)
    End Select
  Next i
  For i = Len(vName) To 1 Step -1   ' +Mädels
    vSub = Mid(vName, i, Len(vName) + 1 - i)
    Select Case Len(vName) + 1 - i
      Case 1
        av = ArrayIndexof(f1, vSub)
        w1 = w1 + (av >= 0)
      Case 2
        av = ArrayIndexof(f2, vSub)
        w1 = w1 + (av >= 0)
      Case 3
        av = ArrayIndexof(f3, vSub)
        w1 = w1 + (av >= 0)
      Case 4
        av = ArrayIndexof(f4, vSub)
        w1 = w1 + (av >= 0)
      Case 5
        av = ArrayIndexof(f5, vSub)
        w1 = w1 + (av >= 0)
      Case 6
        av = ArrayIndexof(f6, vSub)
        w1 = w1 + (av >= 0)
    End Select
  Next i
  w1 = w1 - w2 - w3
  av = ArrayIndexof(x1, vName)
  w4 = (av >= 0)  ' Zwitter
   If w4 = True Then
       getGeschlecht = "W|M"
    Else
             If w1 = True Then
                getGeschlecht = fem
             Else
                getGeschlecht = mas
             End If
   End If
End Function
Function ArrayIndexof(theArray As Variant, value As String)
    Dim i As Integer
    Dim index As Integer
    index = -1
    For i = 0 To UBound(theArray)
        If theArray(i) = value Then
            index = i
            Exit For
        End If
    Next i
    If index > -1 Then
        ArrayIndexof = 1
    Else
        ArrayIndexof = -1
    End If
 
End Function