Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal _
  lpLibFileName As String) As Long

Public Function IsDotNETAvailable() As Long
Dim hModule As Long
 
 
    'try to load library into application work space and return handle 
    hModule = LoadLibrary("mscoree.dll")
 
     If CBool(hModule) = True Then
      'do what ever you want if you expected NET Core
     IsDotNETAvailable = hModule       
     Else
     'do whatever you want if NET Core in inavailable
     IsDotNETAvailable = False 
     End If
 
End Function

Gr??e Kenjiro

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) _
  As Long

FreeLibrary hModule

Gr??e Kenjiro

Gr??e Kenjiro