[debutant bug sur script

bonjour
j'ai écrit un script qui ne fait rien juste pour voir comment ecrire une function et une procédure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.IO
Imports System.IO.Compression
 
Module Program
    Function retour(sd As Integer) As Integer
        Return sd
    End Function
    Sub ret(a)
        a = a * a
    End Sub
    Sub Main(args As String())
        Console.WriteLine("Hello World!")
        Dim p = retour(4)
        Dim at As String
        Console.Write(p)
        ret(3)
        at = Console.Read("")
    End Sub
 
End Module

l'erreur

Code:

1
2
Gravité	Code	Description	Projet	Fichier	Ligne	État de la suppression
Erreur	BC32016	'Public Shared Overloads Function Read() As Integer' n'a aucun paramètre et son type de retour ne peut pas être indexé.	ConsoleApp7	C:\Users\jm18c\source\repos\ConsoleApp7\ConsoleApp7\Program.vb	17	Actif

merci par avance