Automatically Increment Build Numbers in Visual Studio 2005

'Here ya go. This finally got it done for me...
'thanks to the author for a good starting point.

Option Strict Off
Option Explicit Off
 
Imports System
Imports System.IO
Imports EnvDTE
Imports System.Diagnostics
Imports System.Text.RegularExpressions
 
Public Module EnvironmentEvents
 
#Region "Automatically generated code, do not modify"
    'Automatically generated code, do not modify
    'Event Sources Begin
    <System.ContextStaticAttribute()> Public WithEvents DTEEvents As EnvDTE.DTEEvents
    <System.ContextStaticAttribute()> Public WithEvents DocumentEvents As EnvDTE.DocumentEvents
    <System.ContextStaticAttribute()> Public WithEvents WindowEvents As EnvDTE.WindowEvents
    <System.ContextStaticAttribute()> Public WithEvents TaskListEvents As EnvDTE.TaskListEvents
    <System.ContextStaticAttribute()> Public WithEvents FindEvents As EnvDTE.FindEvents
    <System.ContextStaticAttribute()> Public WithEvents OutputWindowEvents As EnvDTE.OutputWindowEvents
    <System.ContextStaticAttribute()> Public WithEvents SelectionEvents As EnvDTE.SelectionEvents
    <System.ContextStaticAttribute()> Public WithEvents BuildEvents As EnvDTE.BuildEvents
    <System.ContextStaticAttribute()> Public WithEvents SolutionEvents As EnvDTE.SolutionEvents
    <System.ContextStaticAttribute()> Public WithEvents SolutionItemsEvents As EnvDTE.ProjectItemsEvents
    <System.ContextStaticAttribute()> Public WithEvents MiscFilesEvents As EnvDTE.ProjectItemsEvents
    <System.ContextStaticAttribute()> Public WithEvents DebuggerEvents As EnvDTE.DebuggerEvents
    <System.ContextStaticAttribute()> Public WithEvents ProjectsEvents As EnvDTE.ProjectsEvents
    'Event Sources End
    'End of automatically generated code
#End Region
 

    Sub WriteToOutputBuildPane(ByVal Message As String)
        DTE.Windows.Item(EnvDTE.Constants.vsWindowKindOutput).Object.OutputWindowPanes.Item("Build").OutputString(Message & vbCrLf)
    End Sub
 
    Public Function NewAssemblyVersion(ByVal AssemblyVersion As String) As String
        Dim AssemblyVersionParts() As String = AssemblyVersion.Split(".")
        Dim BuildNumberPart As String = AssemblyVersionParts(2)
        Dim BuildNumber As Integer
        If BuildNumberPart = "*" Then
            BuildNumber = 1
        Else
            BuildNumber = CInt(BuildNumberPart) + 1
        End If
        AssemblyVersionParts(2) = BuildNumber
        Return String.Join(".", AssemblyVersionParts)
 
    End Function
 
    Private Sub BuildEvents_OnBuildProjConfigBegin(ByVal Project As String, ByVal ProjectConfig As String, ByVal Platform As String, ByVal SolutionConfig As String) Handles BuildEvents.OnBuildProjConfigBegin
        Dim AssemblyInfoFileName As String
 
        Select Case True
            Case Project.ToLower.EndsWith("vbproj")
                AssemblyInfoFileName = IO.Path.GetDirectoryName(IO.Path.GetDirectoryName(DTE.Solution.FullName) & "\" & Project) & "\AssemblyInfo.vb"
            Case Project.ToLower.EndsWith("csproj")
                AssemblyInfoFileName = IO.Path.GetDirectoryName(IO.Path.GetDirectoryName(DTE.Solution.FullName) & "\" & Project) & "\AssemblyInfo.cs"
        End Select
 
        Dim AssemblyInfoText As String
 
        If File.Exists(AssemblyInfoFileName) Then
 
            Dim StreamReader As StreamReader
            Try
                StreamReader = New StreamReader(AssemblyInfoFileName)
                AssemblyInfoText = StreamReader.ReadToEnd()
            Catch ex As Exception
                WriteToOutputBuildPane("Unable to read from " & AssemblyInfoFileName)
            Finally
                StreamReader.Close()
            End Try
 
            Dim AssemblyVersion As String = Regex.Match(AssemblyInfoText, "\<Assembly\: AssemblyVersion\(""(?'assemblyversion'.+?)""\)\>").Groups("assemblyversion").Value 'Extract the AssemblyVersion attribute value
            Dim NewAssemblyVersion As String = EnvironmentEvents.NewAssemblyVersion(AssemblyVersion)
 
            '' Write the newly modified AssemblyInfo file.
            Dim StreamWriter As StreamWriter
            Try
                StreamWriter = File.CreateText(AssemblyInfoFileName)
                StreamWriter.Write(AssemblyInfoText.Replace(AssemblyVersion, NewAssemblyVersion))
                WriteToOutputBuildPane("Assembly Version: " & NewAssemblyVersion)
            Catch ex As Exception
                WriteToOutputBuildPane("Unable to write to the AssemblyInfo file, the build number has not been changed!") 'For whatever reason we were not allowed to write to the file.
            Finally
                StreamWriter.Close()
            End Try
 
        Else
            WriteToOutputBuildPane("Unable to find " & AssemblyInfoFileName)  'We were unable to locate the AssemblyInfo file
        End If
 
    End Sub
End Module