あるページを閲覧して上から順にクリックして、その先の抜き出したい情報を取得して、書き出しか表示できればと思っています。

ここに自分で作ったコードを診てもらうのは可能でしょうか？

VBAでつくろうと思ったので、こんな感じでいいのでしょうか？
綺麗に抜くことができないので正規表現でやったほうが綺麗でしょうか？

Sub test()

Dim oHttp As Object
Dim getSource As String
Dim nukidashi As String
Dim saikoukion As String
Dim tate As Integer


tate = 1
Set oHttp = CreateObject("MSXML2.XMLHTTP")

oHttp.Open "GET", "http://www.bellezza-cs.com/search/seat.php?maker=8&init=0&car=9", False
oHttp.Send
getSource = oHttp.responseText
hit = 1
If getSource <> "" Then


nukidashi = Mid(getSource, InStr(getSource, "＜table"))
Max = Len(nukidashi)
For u = 1 To 10
hit = InStr(hit, nukidashi, "＜td colspan=")
If hit < Max Then
hin = Mid(nukidashi, hit + 16, 3)
hit = InStr(hit + 16, nukidashi, "＜td colspan=")
syasyu = Mid(nukidashi, hit + 24, 10)
hit = InStr(hit + 16, nukidashi, "＜td colspan=")
kata = Mid(nukidashi, hit + 24, 10)
hit = InStr(hit + 16, nukidashi, "＜td>")
nensiki = Mid(nukidashi, hit + 4, 12)
hit = InStr(hit + 16, nukidashi, "＜td width=")
teiin = Mid(nukidashi, hit + 15, 1)
Worksheets("Sheet1").Cells(tate, 1) = "品番"
Worksheets("Sheet1").Cells(tate, 2) = hin
tate = tate + 1
Worksheets("Sheet1").Cells(tate, 1) = "車種"
Worksheets("Sheet1").Cells(tate, 2) = syasyu
tate = tate + 1
Worksheets("Sheet1").Cells(tate, 1) = "年式"
Worksheets("Sheet1").Cells(tate, 2) = nensiki
tate = tate + 1
Worksheets("Sheet1").Cells(tate, 1) = "定員"
Worksheets("Sheet1").Cells(tate, 2) = teiin
tate = tate + 1
End If
Next u
End If

End Sub

わかりました。いつもありがとうございます。