Private Sub Auslesen_Click()
 
Dim I As Long
Dim sLine() As String
 
 
sLine = Split(Text1.Text, vbCrLf)
If I <= UBound(sLine) Then
For I = 0 To UBound(sLine)
 
    Select Case Left$(sLine(I), 1)
        Case "Y"
        Y_Axis = Val(Mid$(sLine(I), 2, 5))
        Text2.Text = Y_Axis
        Case "X"
        X_Axis = Val(Mid$(sLine(I), 2, 5))
        Text2.Text = X_Axis
 
    End Select