il codice di Jeremy conta e somma i valori pari e dispari, mentre a quanto ho capito, viene richiesto che si sommino e si contino i valori di posto pari o dispari.

Il codice di chiara è un po' confusionario, sia nelle dichiarazioni che nell'uso delle variabili appropriate.

Così dovrebbe funzionare:

codice:
Dim nValori As Integer
Dim i As Integer
Dim ValoreAttuale As String
Dim nDispari As Integer
Dim nPari As Integer
Dim sumDispari As Integer
Dim sumPari As Integer
Dim msgFinale As String

nValori = 5

For i = 1 To nValori

    'Chiedo il valore all'utente
    ValoreAttuale = InputBox("Inserisci il valore n. " & i, "Inserimento Dati")

    'Se viene premuto annulla viene mostrato un messaggio
    ' di errore e la procedura termina
    If Trim(Len(ValoreAttuale)) = 0 Then
        MsgBox "Serie incompleta"
        Exit Sub
    End If

    If i Mod 2 = 0 Then

        ' se il posto corrente è pari, lo conto e sommo
        nPari = nPari + 1
        sumPari = sumPari + CInt(ValoreAttuale)
    Else

        ' il posto corrente è dispari, lo conto e sommo
        nDispari = nDispari + 1
        sumDispari = sumDispari + CInt(ValoreAttuale)
    End If
Next

'Costruisco il messaggio finale con i valori ottenuti

msgFinale = "La somma dei posti pari è " & sumPari & vbCrLf
msgFinale = msgFinale & "Il numero dei posti pari è " & nPari & vbCrLf
msgFinale = msgFinale & "La somma dei posti dispari è " & sumDispari & vbCrLf
msgFinale = msgFinale & "Il numero dei posti dispari è " & nDispari

MsgBox msgFinale
Consiglio a chiara di analizzare bene il codice, confrontandolo con il proprio per capirne eventuali differenze.
Se qualcosa non è chiara sono a disposizione per ulteriori spiegazioni.

Boolean