If you mean "get the ID data between the double quotes" then use a regex:
(?<=ID=").+(?="\s*runat=)
Should do it.
Public Dim regex As Regex = New Regex( _
"(?<=ID="").+(?=""\s*runat=)", _
RegexOptions.Multiline _
Or RegexOptions.Singleline _
Or RegexOptions.CultureInvariant _
Or RegexOptions.Compiled _
)
Dim m As Match = regex.Match(InputText)
If m.Success Then
Dim id as String = m.Value
End If