Grazie davvero a tutti
Sono riuscita a fare l'esercizio con questo codice:
'Dati n valori in sequenza, sommare e contare quelli di posto pari;
'sommare e contare quelli di posto dispari.
'Dati di input:
'Valori V, Numero dei valori NV, Stringa Stringa
Dim V, NV As Integer
Dim Stringa As String
'Dati di output:
'Somma dei posti pari Spp, Somma dei posti di dispari Spd,
'Numero posti pari Npp, Numero posti dispari Npd
Dim Spp, Spd, Npp, Npd As Integer
'Variabili di lavoro:
'Contatore C, Accumulatore posti pari App, Accumulatore posti dispari Apd,
Dim C, App, Apd As Integer

Private Sub cmdesci_Click()
End
End Sub

Private Sub cmdok_Click()
NV = Val(txtposti.Text)
App = 0
Apd = 0

Do
Stringa = InputBox("Inserisci il valore", "Richiesta valore")
V = Val(Stringa)
C = C + 1
Dim intNumero As Double
If Len(Stringa) > 0 Then
intNumero = (Stringa)
If intNumero Mod 2 = 0 Then
App = App + V
Npp = Npp + 1
Else
Apd = Apd + V
Npd = Npd + 1
End If
End If
Loop Until C = NV
Spp = App
Spd = Apd
lblrisultato.Caption = " La somma dei posti pari è " & Spp & " , " & " la somma dei posti dispari è " & Spd & " , " & " il numero di posti pari è " & Npp & " , " & " il numero dei posti dispari è " & Npd
End Sub

Grazie ancora