VBA combobox

[lukas4]

de hecho ahora mi problema es en esta función:

Código vb:

Private Sub calcButton_Click()
 
Dim i
i = 0
 
If answer1.Value = "No" Then
    i = i - 6
ElseIf answer1.Value = "Select..." Then
    MsgBox "Please select an answer for question 1"
    Exit Sub
End If
If answer2.Value = "No" Then
    i = i - 6
ElseIf answer2.Value = "Select..." Then
    MsgBox "Please select an answer for question 2"
    Exit Sub
End If
If answer3.Value = "No" Then
    i = i - 6
ElseIf answer3.Value = "Select..." Then
    MsgBox "Please select an answer for question 3"
    Exit Sub
End If
If answer4.Value = "Yes" Then
    i = i + 1
ElseIf answer4.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 4"
    Exit Sub
End If
If answer5.Value = "Yes" Then
    i = i + 1
ElseIf answer5.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 5"
    Exit Sub
End If
If answer6.Value = "Yes" Then
    i = i + 1
ElseIf answer6.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 6"
    Exit Sub
End If
If answer7.Value = "Yes" Then
    i = i + 1
ElseIf answer7.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 7"
    Exit Sub
End If
If answer8.Value = "Yes" Then
    i = i + 1
ElseIf answer7.Value = "No" Then
    i = i - 1
Else
    MsgBox "Please select an answer for question 8"
    Exit Sub
End If
 
If i < 0 Then
    answer9.Value = "No" 'aqui me tira error
Else
    answer9.Value = "Yes"
End If
 
End Sub
 

lo que quiero hacer es asignarle un valor al combo answer9, como lo dice el codigo si i<0 que se seleccione No, de lo contrario Yes. Espero me puedas ayudar con esto. Gracias

Nevermind, ya lo solucione, utilice:

Código vb:

answer9.SelText = "No"
 

en lugar de lo que tenia ^^