Зачем некоторые программисты используют GlobalAlloc? По мне так это глупость полнейшая

Option Explicit
Private Declare Sub qsort CDecl Lib "ntdll" (ByVal base As Long, ByVal num As Long, ByVal width As Long, ByVal compare As Long)
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal Length As Long)
Private Declare Function VarCmp Lib "oleaut32" (ByRef pvarLeft As Any, ByRef pvarRight As Any, ByVal lcid As Long, ByVal dwFlags As Long) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
 
Global arr(4) As Variant
Dim Comparer(0 To 24) As Byte
 
Private Function MyCompare CDecl(arg1 As Variant, arg2 As Variant) As Long
    MyCompare = VarCmp(arg1, arg2, GetUserDefaultLCID, &H1)
End Function
 
Private Function MyCompare1 CDecl(arg1 As Variant, arg2 As Variant) As Long
    Debug.Print "arg1:" & CStr(arg1)
    Debug.Print "arg2:" & CStr(arg2)
    
    MyCompare1 = StrComp(CStr(arg1), CStr(arg2), vbTextCompare)
End Function
 
Public Function my1()
    Dim hModule As Long
    Dim VarCmp As Long
    
    hModule = LoadLibrary("oleaut32")
    VarCmp = GetProcAddress(hModule, "VarCmp")
    
    ' Для косвенного вызова через qSort функции VarCmp (сравнение двух Variant переменных)
    ' qSort сама чистит стек после выполнения этой вставки.
    ' stdCall - ложим в стек параметры справа налево
    Comparer(0) = &H6A                  '6A00       push 0 - dwFlags
    Comparer(2) = &H6A                  '6A00       push 0 - lcid
    CopyMemory Comparer(4), &H102474FF, 4 'FF742410 push dword ptr [esp+10h] - pvarRight
    CopyMemory Comparer(8), &H102474FF, 4 'FF742410 push dword ptr [esp+10h] - pvarLeft
    CopyMemory Comparer(12), &H2E8, 2   'E802000000 call $+2 - Начнем выполнение с Comparer(19) (push xxxxxxxx -
                                        ' где xxxxxxxx- адрес функции VarCmp)
                                        ' Возвращаемое значение в регистре eax
    Comparer(17) = &H48                 '48         dec eax  - Вычитаем единицу для соответствия константам qSort'a
    Comparer(18) = &HC3                 'C3         ret - stdcall функция VarCmp сама почистила стек, поэтому просто выходим
    Comparer(19) = &H68                 '68xxxxxxxx push xxxxxxxx - здесь пишем адрес функции VarCmp в стек
    CopyMemory Comparer(20), VarCmp, 4
    Comparer(24) = &HC3
    
    arr(0) = "яблоки"
    arr(1) = "дыни"
    arr(2) = "груши"
    arr(3) = "бананы"
    arr(4) = "арбузы"
    
    qsort VarPtr(arr(0)), UBound(arr) + 1, 16, VarPtr(Comparer(0))
End Function

Option Explicit
 
Private Sub Command1_Click()
    Dim i As Long
    
    my1
    
    For i = 0 To UBound(arr)
        Print arr(i)
    Next
End Sub

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Private Declare Function IsEqualGUID Lib "ole32" (rguid1 As GUID, rguid2 As GUID) As Boolean
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As CBoolean, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As CBoolean, riid As GUID, ppvObj As Any) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
 
Private Enum CBoolean ' Enum members are Long data types
    CFalse = 0
    CTrue = 1
End Enum
 
Private Type GUID        ' 16 bytes (128 bits)
    dwData1 As Long      ' 4 bytes
    wData2 As Integer    ' 2 bytes
    wData3 As Integer    ' 2 bytes
    abData4(7) As Byte   ' 8 bytes, zero based
End Type
 
Private Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Private Const S_OK = 0 ' Indicates successful HRESULT
Private Const GMEM_MOVEABLE = &H2
 
Public Function PictureFromBits(abPic() As Byte) As IPicture ' Not a StdPicture!!
    Dim nLow As Long
    Dim cbMem  As Long
    Dim hMem  As Long
    Dim lpMem  As Long
    Dim IID_IPicture As GUID
    Dim istm As stdole.IUnknown ' IStream
    Dim ipic As IPicture
    
    ' Get the size of the picture's bits
    On Error GoTo out
    nLow = LBound(abPic)
    On Error GoTo 0
    cbMem = (UBound(abPic) - nLow) + 1
    
    ' Allocate a global memory object
    hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
    If hMem Then
        ' Lock the memory object and get a pointer to it.
        lpMem = GlobalLock(hMem)
        
        If lpMem Then
            ' Copy the picture bits to the memory pointer and unlock the handle.
            MoveMemory ByVal lpMem, abPic(nLow), cbMem
            Call GlobalUnlock(hMem)
            
            ' Create an ISteam from the pictures bits (we can explicitly free hMem
            ' below, but we'll have the call do it here...)
            If (CreateStreamOnHGlobal(hMem, CTrue, istm) = S_OK) Then
                If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
                    ' Create an IPicture from the IStream (the docs say the call does not
                    ' AddRef its last param, but it looks like the reference counts are correct..)
                    Call OleLoadPicture(ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits)
                End If   ' CLSIDFromString
            End If ' CreateStreamOnHGlobal
        End If ' lpMem
        
        Call GlobalFree(hMem)
    End If ' hMem
out:
End Function