Private myExl As New Excel.Application
 
Private Sub cmd_mess_Click()
 
Dim reply1 As Double
Dim reply2 As Double
Agt3494A1.Output "Measure:Volt?"
Agt3494A1.Enter reply1
txt_spa1(0).Text = reply1
Agt3494A1.Output "Measure:Curr?"
Agt3494A1.Enter reply2
txt_stro1.Text = reply2
End Sub
' Bsp: Excel-Arbeitsmappen öffnen und Inhalt
' der Zelle A1 in einer Textbox anzeigen
Private Sub OpenmyExcel(ByVal sTabName As String)
  ' Excel-Arbeitsmappe öffnen
  myExl.Workbooks.Open sTabName
 
  ' Tabelle1 auswählen
  myExl.ActiveWorkbook.Sheets("Tabelle1").Select
 
  ' Inhalt der Zelle A1 in eine Textbox ausgeben
  myExl.Range("A1").Value = txt_stro1.Text
 
 
 
End Sub