Как определить версию запущенного ( исполняемого ) приложения ( модуля )

'Получаем версию текущей исполняемой сборки
Dim sVer As String = System.Reflection.Assembly.GetExecutingAssembly.GetName().Version.ToString()
Dim realVersion As Version
Try
      realVersion = New Version(sVer)
Catch ex As Exception
      'если формат стоки для версии неправильный,будем считать что это нулевая версия      realVersion = New Version(0, 0, 0)
End Try
'главное значение версии (первая цифра)
Dim MajorVersion As String = realVersion.Major.ToString
'второстепенное значение версии (вторая цифра)
Dim MinorVersion As String = realVersion.Minor.ToString