Can't think of a good class name? Try this:(classnamer.com)

    Sub ClassNameGen()
        Dim res As String
        Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://www.classnamer.com/")
        Dim rsp = req.GetResponse()
        Using sr As New System.IO.StreamReader(rsp.GetResponseStream())
            res = sr.ReadToEnd()
        End Using

        Dim doc As Document = DTE.ActiveDocument
        Dim textDoc As TextDocument = CType(doc.Object("TextDocument"), TextDocument)
        textDoc.StartPoint.CreateEditPoint()

        Dim strstr As String = "<p id=""classname"">"
        Dim endstr As String = "</p>"
        Dim strt As Integer = res.IndexOf(strstr)
        textDoc.Selection.Insert(res.Substring(strt + strstr.Length, res.Length - (res.IndexOf(endstr, strt) + endstr.Length)))
    End Sub