.NET System.Typeオブジェクトよりバージョン情報を取得するには

Public Sub GetFileVersionInfo(ByVal type As System.Type)
Dim ver As System.Diagnostics.FileVersionInfo
ver = System.Diagnostics.FileVersionInfo.GetVersionInfo(type.Assembly.Location)
Dim manufacturer As String = ver.CompanyName
Dim productName As String = ver.ProductName
End Sub