Sub Main

Dim n As Long, i As Long
Dim vx As Double, vy As Double
Dim filename As String

  'With Result1D ("pup1(pw)")   'Получение данных дискретного порта (раскомментировать строку, закомментировать следующую)
  With Result1D ("upelement1(pw)")   'Получение данных сосредоточенного элемента
     n = .GetN              ' Get number of frequency samples
     filename="C:\1f.txt"
     Open filename For Output As #3
     For i = 0 To n-1
            vx = .GetX(i)   ' Get frequency of data point
            vy = .GetY(i)   ' Get phase of data point
            Print #3, vx; "     "; vy
     Next i
     Close #3
  End With

End Sub