In neretto le righe modificate o aggiunte

Originariamente inviato da wastzzz
codice:
Private Sub blabla()
  Dim vettore() As Integer
  vettore = funzionebanale(9)
End Sub

Function funzionebanale(a) As Integer()
  Dim i As Integer
  Dim vettore(9) as integer

  For i = 0 To a
      vettore(i) = a
  Next i

  funzionebanale = vettore
End Function
Grazie ^^
Prego