Matrizes

[8luap]

Boas

tenho o seguinte programa :

Function fsoma(ByRef matriz(,)) As Single
Dim soma, media, j, i, contador As Single
soma = 0
contador = 0
For i = 0 To 2
For j = 0 To 3
soma = soma + matriz(i, j)
contador = contador + 1
Next
Next
media = soma / contador
Return soma
End Function

Function fmedia(ByRef matriz(,)) As Single
Dim soma, media, j, i, contador As Single
soma = 0
contador = 0
For i = 0 To 2
For j = 0 To 3
soma = soma + matriz(i, j)
contador = contador + 1
Next
Next
media = soma / contador
Return media
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim f, i, j As Integer
Dim matriz(3, 4) As Single
f = FreeFile()
FileOpen(f, "matriz.txt", OpenMode.Input)
Do While Not EOF(f)
For i = 0 To 2
For j = 0 To 3
Input(f, matriz(i, j))
Next
Next
Label1.Text = fsoma(matriz(3, 4))
Label2.Text = fmedia(matriz(3, 4))
Loop

End Sub

ta a dar erro aki nesta parte,supostamente pk to passando mal a matriz para a função.
kual a forma correcta ?
Label1.Text = fsoma(matriz(3, 4))
Label2.Text = fmedia(matriz(3, 4))