Public Struct BeteiligterType
	Public AZ As Integer
    Public Beteiligung As Integer
    Public Person As Integer
    <VBFixedString(30)>Public IhrZeichen As String 
    Public Daten As BeteiligterUnterType
End Struct	
 
public Function LeseSatz( nummer  as Integer ) As BeteiligterType
	Dim RetVal As BeteiligterType
	Dim file as Integer 
	Try
		file = FreeFile()
		FileOpen( file, "Dateiname", OpenMode.Random, , , Len(BeteiligterType))
		FileGet( file, RetVal, nummer )
	Finally
		FileClose( file )
	End Try
	return RetVal
End Function