Dim Location As String
.........
Dim stringReader As New StringReader(Location .ToString)
For x As Integer = 0 To imageLocation.Length
MsgBox(stringReader.ReadLine)
Next