Dim i As Long
Dim sLine() As String
 
sLine = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(sLine)
  Select Case Left$(sLine(i), 2)
    Case "Y3"
      Y3 = Val(Mid$(sLine(i), 4))
    Case "X2"
      X2 = Val(Mid$(sLine(i), 4))
    ...
  End Select
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de