i need some help with reading from a file , with 10 integers to an array with a area of [10]

i need to read the integers into the array , then sort them from big to small value's and then save to a text file ....

this is my code , could someone help me with the array code for reading to and from file ...

Option Explicit
Dim mArray(10) As Integer
Dim mFileSysObj As New fileSystemObject



Dim x As Integer
Dim mfile As File
Dim mtxtstream As textstream

Private Sub Command1_Click()

Dim s As Integer
s = mtxtstream.readline
For x = LBound(mArray) To UBound(mArray)







End Sub

Public Sub Load_File()
Set mfile = mFileSysObj.getfile("d:\data.dat")
Set mtextstream = mfile.openastextstream(forreading)
End Sub