VS2008 Add Interface Macro

AddInterface.vb

    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