Private Structure Koordinate
	Dim x As Double
	Dim y As Double
End Structure

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs _
  As System.EventArgs) Handles Command1.Click
 
	Dim aus_koordi As Form1.Koordinate
	Dim ein_koordi As Form1.Koordinate
 
 
	aus_koordi.x = 3445345.893
	aus_koordi.y = 5844000.453
 
 
	'Ausgabe
 
	FileOpen(1, "C:\Koordi.bin", OpenMode.Binary)
 
	FilePut(1, aus_koordi)
 
	FileClose(1)
 
	'Eingabe
 
	FileOpen(1, "C:\Koordi.bin", OpenMode.Binary)
 
	FileGet(1, ein_koordi)
 
	FileClose(1)
 
	MsgBox("X:" & Str(ein_koordi.x) & " Y:" & Str(ein_koordi.y))
 
End Sub