wilson646,

Veja se isso te ajuda,

Há 3 maneiras de se fazer isso

a primeira é usando o GetElementsByName. Quando você vai na página, o nome da lista é "rblTipo", veja qual o valor da opção que você quer

<td><input id="rblTipo_1" type="radio" name="rblTipo" value="2" /><label for="rblTipo_1">CNPJ Adquirente por Conta e Ordem</label></td><td>

No caso você usa

HTMLDoc.getelementsbyname("rblTipo")(2).Checked = True

A segunda opção é usar o id da opção, que é

id="rblTipo_1"

Nesse caso você usa

HTMLDoc.getelementbyid("rblTipo_1").Checked = True

Na terceira opção, você usa "all" e "item", onde você especifica que quer o valor "3" do item "rblTipo"
Nesse caso você usa

HTMLDoc.all.Item("rblTipo")(3).Checked = True

Segue o código completo com as 3 opções

Private Sub Login_Click()

Dim oHTML_Element As IHTMLElement
Dim sURL As String
On Error GoTo Err_Clear
sURL = "https://www3.fazenda.sp.gov.br/Simp/"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document
HTMLDoc.all.txtCpf.Value = Val(TextBox15.Text)
HTMLDoc.all.txtNumDoc.Value = Val(TextBox14.Text)

'HTMLDoc.getelementsbyname("rblTipo")(2).Checked = True
'HTMLDoc.getelementbyid("rblTipo_1").Checked = True
'HTMLDoc.all.Item("rblTipo")(3).Checked = True


For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For

Next
Err_Clear:

Resume Next
End Sub

wilson646,

Nos informe se isso te ajudou, ou qual foi o método que voce utilizou para a solução
isso ajuda as pessoas que procuram no fórum que tem a mesma dúvida que você