MSXMLを使用するのに最新のVerから存在するかで順番に指定したいのですが、
Ver4から順にためしていくにはどうしたらよいのでしょうか?
(Ver2から試すのは下記のサンプルをみつけました。)

Set oHttp = CreateObject("MSXML2.XMLHTTP")
If (Err.Number <> 0) Then
Set oHttp = CreateObject("MSXML.XMLHTTPRequest")
End If