[vbnet]

.....

منقول مع تعديل بسيك ليناسب طلبك

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim pat As String = "(?<=class="").+?(?="")"

    Dim res As String = System.Text.RegularExpressions.Regex.Match(Me.TextBox1.Text, pat).Value

    MsgBox(res)

End Sub

.....