Visual Basic

MIA JFK HNL LAX DFW
-5 -5 -10 -8 -6
0 3 12 8 2.5
3 0 14 8.5 3.5
12 12 0 4.5 8.5
8 8.5 4.5 0 3.5
2.5 3.5 8.5 3.5 0

Ideally the first line would be inserted into an array like {MIA,JFK,HNL,LAX,DFW}
Second line a new array with {-4, -4, -10, -7, -5}
And the last lines would be inserted into a two dimensional array:

{{0, 3, 12, 8, 2.5}, _
{3, 0, 14, 8.5, 3.5}, _
{12, 14, 0, 4.5, 8.5}, _
{8, 8.5, 4.5, 0, 3.5}, _
{2.5, 3.5, 8.5, 3.5, 0}}

I have been struggling for over two days with this.  This solution is probably easy... but it is evading me.  I have tried using the streamreader to no avail.  

Here is something I tried...

Public Class Form1
    Dim tmpArray() As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim sr As New StreamReader("..\..\info1.txt")
            Dim count As Integer = 0
            While Not sr.EndOfStream
                Dim line As String = Nothing
                line = sr.ReadToEnd()
                tmpArray() = line.Split(" ")
            End While


        Catch ex As Exception

        End Try


    End Sub
End Class


Any help would be greatly appreciated.

Imports System.IO
Module ModReadWriteImage

    Public Sub writeImage(ByVal picbox As PictureBox, ByVal sql As String)

        Dim imageBinary = Nothing
        Dim myImage As Image = picbox.Image
        'Image to byte[]
        Dim imgMemoryStream As MemoryStream = New MemoryStream()
        Dim imgByteArray As Byte() = Nothing
        myImage.Save(imgMemoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        'converts the image to an array of byte :D
        imgByteArray = imgMemoryStream.GetBuffer()
        'calls the save image function ^_^
        saveImage(imgByteArray, sql)

    End Sub

    Public Function readImages(ByVal pic As Byte()) As Image

        Dim imgMemoryStream As MemoryStream = New MemoryStream()
        Dim imgByteArray As Byte() = Nothing

        Dim myimage As Image
        imgByteArray = pic
        'convert the binary data and return it as an image ;D

        imgMemoryStream = New IO.MemoryStream(imgByteArray)
        myimage = Drawing.Image.FromStream(imgMemoryStream)

        Return myimage

    End Function


End Module

Public Class RDouble
    Public Sub New(ByVal D As Double, Optional ByVal Min As Double = 0, Optional ByVal Max As Double = 100)
        _MinValue = Min
        _MaxValue = Max
        _dValue = D

        If _dValue < _MinValue Then
            _dValue = _MinValue
        ElseIf _dValue > _MaxValue Then
            _dValue = _MaxValue
        End If
    End Sub

    Public _MinValue As Double
    Private _MaxValue As Double
    Private _dValue As Double

    Public Shared Widening Operator CType(ByVal d As RDouble) As Double
        Return d._dValue
    End Operator

    Public Shared Narrowing Operator CType(ByVal d As Double) As RDouble
        Return New RDouble(d)
    End Operator
End Class

Sub Main()
    Dim rd As New RDouble(50.0, 10.0, 100.0)
    rd = 20.54
    Dim D As Double
    D = Math.Round(rd)
End Sub