Sto provando in questo modo:
codice:
'PROCEDURA
sub vbproc(list)
If list = "a" Then
a = a + 1
elseIf list = "b" Then
b = b + 1
elseIf list = "c" Then
c = c + 1
elseIf list = "d" Then
d = d + 1
end if
end sub

repp = 1

'INIZIO IL CICLO
Repeat

punt = "s" & repp
call vbproc("&punt&")

repp = repp + 1
'CONDIZIONE
Until repp => 30
Ma mi restituisce:
codice:
Expected statement 

Until repp => 30
^