Private Declare Function FunctionCall Lib "user32" Alias "CallWindowProcA" (ByVal lpCode As Long, ByVal S0 As String, ByVal L0 As Long, ByVal S1 As String, ByVal L1 As Long) As Long

Public Function ResCall(ResId As String, S0 As String, L0 As Long, S1 As String, L1 As Long) As Long
  Dim Code() As Byte
  Code = LoadResData(ResId, "CODE")
  ResCall = FunctionCall(StrPtr(Code), S0, L0, S1, L1)
End Function

Sub Main()
  Dim Data As String: Data = "Test"
  'Arguments 3 and 4 don't used.
  MsgBox(Hex(ResCall("CRC32", Data, Len(Data), vbNullString, 0)))
End Sub
    

Hello!
Thanks for that.
And whats the fasm code which belongs to it?

        format  binary
        use32
;------------------------------------------------------------------------------;
; stdcall int CRC32(data,length,void,void).                                    ;
;------------------------------------------------------------------------------;
CRC32: ;Code by Matrix.
        push    ebp
        mov     ebp,esp
        push    ebx esi edi
        mov     esi,[ebp+0x08]          ;CRC32.data.
        mov     edi,[ebp+0x0c]          ;CRC32.length.
        xor     ecx,ecx
        dec     ecx
        mov     edx,ecx
    .next_byte:
        xor     eax,eax
        xor     ebx,ebx
        lods    byte[esi]
        xor     al,cl
        mov     cl,ch
        mov     ch,dl
        mov     dl,dh
        mov     dh,0x08
    .next_bit:
        shr     bx,0x01
        rcr     ax,0x01
        jnc     .skip_bit
        xor     ax,0x8320
        xor     bx,0xedb8
    .skip_bit:
        dec     dh
        jnz     .next_bit
        xor     ecx,eax
        xor     edx,ebx
        dec     edi
        jnz     .next_byte
        not     edx
        not     ecx
        mov     eax,edx
        rol     eax,0x10
        mov     ax,cx
        pop     edi esi ebx ebp
        ret     0x10