Im going to go out on a limb and show you my terrible code...

Code:
Public Function LoadMobileData() As Boolean

        Dim fStream As New FileStream("mob.dat", FileMode.Open)
        Dim sReader As New StreamReader(fStream)
        Dim buffer As String

        buffer = sReader.ReadLine
        While buffer <> ""

            If buffer.Chars(1) = ":" Then
                If buffer.Chars(0) = mMobileNumber.ToString Then
                    mMobileName = Mid(buffer, 3)
                    mStatResilience = sReader.ReadLine
                    mStatMight = sReader.ReadLine
                    mStatAlertness = sReader.ReadLine
                    mStatInsight = sReader.ReadLine
                    mStatAC = sReader.ReadLine
                    mStatHits = sReader.ReadLine
                    mStatAtk = sReader.ReadLine
                    mStatLevel = sReader.ReadLine
                    LoadMobileData = True
                    MessageBox.Show("Mobile : " & mMobileName & " loaded successfuly.")
                    Exit Function
                Else
                    sReader.ReadLine()
                    sReader.ReadLine()
                    sReader.ReadLine()
                    sReader.ReadLine()
                    sReader.ReadLine()
                    sReader.ReadLine()
                    sReader.ReadLine()
                End If
            End If

            buffer = sReader.ReadLine
        End While

    End Function
While it doesnt work, that was not the intention, the intention was to get hte logic right, as you can see, its not good :/

Any help would be great,

Darren