Imports System
Imports System.Text.RegularExpressions
Public Module Module1
Public Sub Main()
Dim rgx As New Regex("(?<=<span>)(.+)(?=</span>)")
Dim WordString As String = "<span>1</span> - Selection"
If rgx.IsMatch(WordString) Then
Console.WriteLine(rgx.Matches(WordString)(0))
End If
End Sub
End Module