Dim infoIndex As Integer = html.IndexOf("現物買付余力") Dim startIndex As Integer = html.IndexOf(">", infoIndex) + 1 Dim endIndex As Integer = html.IndexOf("円", startIndex) Dim yoryoku As Integer = CInt(html.Substring(startIndex, endIndex - startIndex).Trim)