The code below is suppose to separate each pair of long and lat. It works fine apart from the last pair.

Plots textbox = 501918N 0053042W - 502400N 0053900W - 503200N 0053400W - 503930N 0052400W - 504300N 0051230W - 503830N 0050430W - 501918N 0053042W

VB Code:
  1. Plots = Plots & " - "

  2. NoPts = NoPts - 1

  3.  
  4. For i = 0 To NoPts

  5.     PosN = InStr(1, Plots, "-")

  6.     Points(i) = Left$(Plots, PosN - 2)

  7.     

  8.     Length = Len(Plots)

  9.     Plots = Right$(Plots, Length - (PosN + 1))

  10. Next i