Private Sub unk_b0f0()
Dim Local1 as NIL
Dim BLocal1 as String
FLocal2 = App.Path
BLocal1 = FLocal2
If (Right(FLocal2,1) = "\\")
	BLocal1 = FLocal2 & "\\"
Else
End If
If (Dir(BLocal1 & "TEMP.CSV",VBNORMAL) = "")
	Kill BLocal1 & "TEMP.CSV"
End If
FLocal6 = FreeFile
Open BLocal1 & "TEMP.CSV" for Output as FLocal6
LLocal1 = 1
Do While (1 != (Form1.9.grdExport.Rows - 1))
	Print #FLocal6 Form1.9.grdExport.TextMatrix(0,1) & "," & Form1.9.grdExport.TextMatrix(1,1) & "," & Form1.9.grdExport.TextMatrix(2,1) & "," & Form1.9.grdExport.TextMatrix(3,1) & "," & Form1.9.grdExport.TextMatrix(4,1) & "," & Form1.9.grdExport.TextMatrix(5,1) & "," & Form1.9.grdExport.TextMatrix(6,1) & "," & Form1.9.grdExport.TextMatrix(7,1) & "," & Form1.9.grdExport.TextMatrix(8,1) & "," & Form1.9.grdExport.TextMatrix(9,1) & "," & Form1.9.grdExport.TextMatrix(10,1) & "," & Form1.9.grdExport.TextMatrix(11,1) & "," & Form1.9.grdExport.TextMatrix(12,1)
	LLocal1 = (1 + LLocal1)
Loop
Set Local1 as Nothing 
Close #FLocal6
MsgBox "Created Export file (" & BLocal1 & "TEMP.CSV" & ")",VBINFORMATION
End Sub