Вызов сабвуферов не работает и продолжает говорить "Аргумент не указан для параметров"

Question

Я пытался использовать значение из Sub PromptUser в Sub Main, но не могу.Он говорит:

Аргумент не указан для параметра SaS
EmailAddress, StudentName, SaS не объявлен и может быть недоступен из-за уровня защиты

StudentName,EmailAddress и SaS - Массивы:

Module Module1
Private StudentName(2) As String
Private EmailAddress(2) As String
Private SaS(2) As String
    Public Sub PromptUser(ByVal StudentName() As String, ByVal EmailAddress() As String, ByVal SaS() As String)

        For i = 0 to 2
            Console.WriteLine("enter your name: ")
            StudentName(i) = Console.ReadLine()
            Console.WriteLine("enter your e-mail")
            EmailAddress(i) = Console.ReadLine
            SaS(i) = StudentName(i) & "#" & EmailAddress(i)
        Next
    End Sub
    Sub Main()
        Dim SSN1 As String
        PromptUser(StudentName(), EmailAddress(), SaS())
        For i = 0 to 2
            Console.WriteLine("enter name to search: ")
            SSN1 = Console.ReadLine()
            If SSN1 = StudentName(i) Then
                Console.WriteLine(SaS(i))
            End If
        Next
    End Sub
End Module