HRESULT GetCORSystemDirectory ( 
    [out] LPWSTR  pbuffer,   
    [in]  DWORD   cchBuffer, 
    [out] DWORD*  dwlength
);

Private Declare Function GetCORSystemDirectory Lib "MSCorEE.dll" ( _
    pbuffer As String, _
    ByVal cchBuffer As Long, _
    dwlength As Long) _
As Long

Dim pbuffer As String * 256
Dim cchBuffer As Long
Dim dwlength As Long
Dim retVal As Long
cchBuffer = LenB(pbuffer)
GetCORSystemDirectory pbuffer, cchBuffer, dwlength