random access files

[jeff]

i'm using "visual basic.net standard ver 2003". i'm running windows xp with
sp2. i'm trying to make a random access file. it will make the file. but the
file will have no data in it. my program is listed below.

Structure jeff
Public id As Integer
Public g1 As Short
Public g2 As Short
Public g3 As Short
Public g4 As Short 'number of games
Public t As Short
Public gt As Integer
Public av As Short
End Structure

Dim fjeff As jeff
Public a1 As String
Public gg1 As Short
Public gg2 As Short
Public gg3 As Short
Public t1 As Short
Public gg4 As Short
Public av1 As Short
Public a As String

a1 = InputBox(a)
gg1 = Val(a1)
a1 = InputBox(a)
gg2 = Val(a1)
a1 = InputBox(a)
gg3 = Val(a1)
t1 = gg1 + gg2 + gg3
gg4 = 3
av1 = t1 / gg4

Try
FileOpen(1, "c:\bowling.txt", OpenMode.Random)
Catch ex As Exception
FileOpen(1, "c:\bowling.txt", OpenMode.Random)
fjeff.id = 1
fjeff.g1 = gg1
fjeff.g2 = gg2
fjeff.g3 = gg3
fjeff.g4 = gg4
fjeff.t = t1
fjeff.gt = t1
fjeff.av = av1
FilePut(1, fjeff, 1)
FileClose(1)
End Try
FileClose(1)

can anyone help? the help file doesn't have the right code for this.