x = PosZahl(UBound(GewichteterArray))
Private Function PosZahl(ByRef ObereGrenze As Integer) As Integer
Randomize -Timer         ' Sicherstellen, daß bei jedem Start wirklich eine 
' neue Zufallszahl generiert wird
PosZahl = Int(Rnd * ObereGrenze)     ' gibt Zahlen im Bereich von [0 - 
' Oberegrenze]
End Function

ArrayDelete GewichteterArray, x
 
Private Declare Sub CopyMemoryPtr Lib "kernel32" _
  Alias "RtlMoveMemory" ( _
  ByVal Destination As Long, _
  ByVal Source As Long, _
  ByVal Length As Long)
 
Public Sub ArrayDelete(ByRef sArray() As Integer, _
  ByVal nDelPos As Long, _
  Optional ByVal nSize As Variant, _
  Optional ByVal bRedimSize As Variant)
 
  Dim nPtr As Long
 
  ' Größe des Arrays bestimmen, falls nicht angegeben
  If IsMissing(nSize) Then nSize = UBound(sArray)
 
  If nDelPos < nSize Then
    ' Element aus Array löschen und alle
    ' nachfolgende Elemente nach vorne schieben
    nPtr = StrPtr(sArray(nDelPos))
    CopyMemoryPtr VarPtr(sArray(nDelPos)), VarPtr(sArray(nDelPos + 1)), _
      VarPtr(sArray(nSize)) - VarPtr(sArray(nDelPos))
    CopyMemoryPtr VarPtr(sArray(nSize)), VarPtr(nPtr), Len(nPtr)
  End If
 
  ' Array ggf. autom. um 1 Element verkleinern
  If IsMissing(bRedimSize) Then bRedimSize = True
  If bRedimSize Then
    nSize = nSize - 1
    If nSize < 0 Then nSize = 0
    ReDim Preserve sArray(nSize)
  Else
    sArray(nSize) = 0
  End If
End Sub