Visual Basic - Ayuda con funcion alta

hola, tengo 1progrma que mediante arrays de estructuras guardo 1 serie de datos (sin usar bases de datos por lo que al cerrar el formulario no se guardan los datos)y mi problema es que me da fallo al yamar a la funcion alta(esta en 1 modulo). la yamada la e realizado n el evento click del boton agregar, el codigo dl boton es:
Private Sub cmdAgrJug_Click()
Call alta(jugador)
End Sub
el codigo del modulo es el sigiente:
Option Explicit
Public Seleccion(1 To 30) As jugador
Dim i As Integer

Type jugador
Nombre As String
Fecha_Nac As Date
V_internacional As Single
Goles As Single
dorsal As Single
puesto As String
End Type


Sub alta(jugador)
Seleccion(i).Nombre = txtNom
Seleccion(i).Fecha_Nac = txtFecha
Seleccion(i).V_internacional = txtVInter
Seleccion(i).Goles = txtGoles
Seleccion(i).dorsal = cmbDorsal
Seleccion(i).puesto = cmbPuesto
Next i
End Sub

algien me lo puede echar 1 ojo y decirme que faya? creo q es la yamada ala funcion, nose gracias.

sobra la instrucción Next i
No dices cómo abres el fichero, pero si es en modo Random la variable i debe ser el número de registros más uno.

Te falta debajo de Sub alta(jugador) esto:

For i = 1 To 30

Ciao!