Dim Location As String

.........

Dim stringReader As New StringReader(Location .ToString)

        For x As Integer = 0 To imageLocation.Length

            MsgBox(stringReader.ReadLine)

        Next