Private Sub cmdparar_Click()
    tmrrevotar.Enabled = False  'desactivamos
End Sub

Private Sub cmdvotar_Click()
    tmrrevotar.Enabled = True   'activamos
End Sub

Private Sub tmrrevotar_Timer()
'el timer esta puesto a intervalo de 2000 por supuesto empieza enabled=false
On Error Resume Next

    Me.WebBrowser.Navigate txturl.Text        'cargamos la url
   'aki realizas que se seleccione el valor de puntuación indicado por el txt...

  
   
    txtvotos.Text = txtvotos.Text + 1   'aumentamos contador de votos
  
End Sub

If Val(Label3.Caption) < 10 Then
    Label3.Caption = "0" & Label3.Caption
End If

    Label3.Caption = format(val(label3.caption),"00")   'el val hasta lo pueds quitar

Private Sub timer1_timer()
    On Error GoTo nopasana

    Me.WebBrowser.Navigate txturl.text    'cargamos la url
    Me.WebBrowser.Refresh                     'refrescamos el control

   'aki realizas que se clickee el valor que deseas
    
   
     txtvotos.text=txtvotos.text+1
    Exit Sub
   
Reload: resume next
end sub