Private Sub Cmd_laden_Click()
 
  Dim F As Integer
  Dim AllText As String
  Dim LineOfText As String
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Filter = "Textdateien (*.txt)|*.txt"
    .ShowOpen
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Input As #F
      Do Until EOF(F)
        Line Input #F, LineOfText
        AllText = AllText & LineOfText & vbCrLf
      Loop
      Close #F
      Text1.Text = AllText
    End If
  End With
 
 
End Sub
 
Private Sub Cmd_speichern_Click()
 
  Dim F As Integer
 
  On Error Resume Next
  With CommonDialog1
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "Textdateien (*.txt)|*.txt"
    .ShowSave
    If .FileName <> "" Then
      F = FreeFile
      Open .FileName For Output As #F
      Print #F, Text1.Text
      Close #F
    End If
  End With
 
 
End Sub
 
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
 
 
Next
 
End Sub