Private Sub txtDiode1_Click()
' Declare variables
Dim ChannelNumber, mydata, StringVar As Variant
Dim diode As String
mydata = 0
' open a link to WinWedge
ChannelNumber = DDEInitiate("WinWedge", "Com1")
' get data from field(1)
DDEExecute ChannelNumber, "[SENDOUT('?',13)]"
DDETerminate ChannelNumber
ChannelNumber = DDEInitiate("WinWedge", "Com1")
mydata = DDERequest(ChannelNumber, "FIELD(1)")
' terminate the link
DDETerminate ChannelNumber
' make a positive number
mydata = Val(mydata) * -1