Need help with some VB programming

Public Class frmNamesAges

Dim Names(100) As String
Dim Ages(100) As String
Dim TempN As String
Dim TempA As Integer
Dim IntI, IntJ As Integer
Dim Sr As IO.StreamReader = IO.File.OpenText("C:\Users\Owner\Documents\Visual Studio 2008\Projects\Stephens4\Data1.dat")
Dim Sw As IO.StreamWriter = IO.File.CreateText("C:\Users\Owner\Documents\Visual Studio 2008\Projects\Stephens4\Data2.dat")
Dim XLine As String
Dim N As Integer


Private Sub frmNamesAges_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Do While Sr.Peek <> -1
XLine = Sr.ReadLine
N = N + 1
XLine = XLine.Trim
IntI = XLine.IndexOf(" ")
Names(N) = XLine.Substring(0, IntI)
XLine = XLine.Substring(IntI)
XLine = XLine.Trim
Ages(N) = CInt(XLine)
Loop
Sr.Close()
End Sub

Private Sub cmdAlpha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAlpha.Click
Dim IntI, IntJ As Integer

For IntI = 1 To N
For IntJ = 1 To N - 1
If Names(IntJ) < Names(IntJ + 1) Then
TempN = Names(IntJ)
Names(IntJ) = Names(IntJ + 1)
Names(IntJ + 1) = TempN
TempA = Ages(IntJ)
Ages(IntJ) = Ages(IntJ + 1)
Ages(IntJ + 1) = TempA
End If
Next
Next
End Sub

Private Sub cmdOtoY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOtoY.Click

End Sub

Private Sub cmdOldest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOldest.Click

End Sub

Private Sub cmdYoungest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYoungest.Click

End Sub

End Class