Add Interface Visual Studio Macro

AddInterfaceVSMacro.vb

Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports System.Diagnostics

Public Module Main

    Sub AddInterface()
        Dim interfaceName As String = Microsoft.VisualBasic.Interaction.InputBox("Name", "Add Interface")

        If Not String.IsNullOrEmpty(interfaceName) Then
            If Not interfaceName.ToLower.EndsWith(".vb") Then
                interfaceName &= ".vb"
            End If

            DTE.ItemOperations.AddNewItem("Code\Interface", interfaceName)
        End If
    End Sub

End Module