Caros Colegas, um código que uso para abrir uma página do Internet Explore abre apenas uma guia. Como seria o código para abrir mais de uma guia?

Sub FazerLoginSite()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.application")
With ie
.Visible = True
.Navigate (" https://login.live.com")
While .Busy Or .ReadyState <> 4: DoEvents: Wend
.Document.getElementById("i0116").Focus
.Document.getElementById("i0116").Value = "e-mail"
.Document.getElementById("i0118").Focus
.Document.getElementById("i0118").Value = "senha"

End With
End Sub