VB 名を取得する

アセンブリ名を取得する

Dim ThisAssembly As Reflection.Assembly
Dim StrictName As String '完全名(表示名)
Dim SimpleName As String '簡易名

ThisAssembly = Me.GetType.Assembly

StrictName = ThisAssembly.FullName
SimpleName = ThisAssembly.GetName.Name

'WindowsApplication1, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null
MsgBox(StrictName, , "完全名(表示名)")

'WindowsApplication1
MsgBox(SimpleName, , "簡易名")

VB6にはアセンブリはありません。