Proyecto urgente alguien me puede ayudar???

[pkj]

Creo que lo que intentas es algo asi:

Código vb:

Private Sub Command1_Click()
  Dim sRespuesta As String
  Dim lPaco As Long
  Dim lSonia As Long
  Dim lVotos As Long
  Do While Not (sRespuesta = "0")
    sRespuesta = InputBox("Introduce un número (0=Finalizar / 1=Voto para Paco / 2=Voto para Sonia):", "Votaciones 2010")
    If sRespuesta = "1" Then lPaco = lPaco + 1
    If sRespuesta = "2" Then lSonia = lSonia + 1
  Loop
  lVotos = lPaco + lSonia
  If lVotos > 0 Then
    MsgBox "Total " & lVotos & " votos" _
    & vbCrLf & "Paco = " & lPaco & " votos -> " & Format((lPaco * 100) / lVotos, "0.00") & "%" _
    & vbCrLf & "Sonia = " & lSonia & " votos -> " & Format((lSonia * 100) / lVotos, "0.00") & "%"
  Else
    MsgBox "No se ha votado a nadie"
  End If
End Sub
 

Saludos