Private Type flinfo
    CompanyName As String
    FileDescription As String
    ProductName As String
    FileVersion As String
    ProductVersion As String
    InternalName As String
    OriginalFilename As String
    LegalCopyright As String
    Comments As String
    BuildID As String
End Type
Private fileinformation As flinfo
Private Declare Function GetFileVersiondata Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long
 
Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long
 
 
Public Function GetFileVersionInfo(filename As String)
    Dim sInfo As String
    Dim temps
    Dim RetVal As Long
    Dim lSizeof As Long
    Dim N As Integer
    lSizeof = GetFileVersionInfoSize(filename, 0)
 
    fileinformation.BuildID = ""
    fileinformation.Comments = ""
    fileinformation.CompanyName = ""
    fileinformation.FileDescription = ""
....