Hello 5000,
Two things:
1) Don't add the second channel in the cmdStart_Click subroutine.
2) Since you're acquiring data from one channel only, then your ScaledData Variant would be only 1-dimensional, not 2-dimensional. So you'll want to modify the LogData subroutine to only loop through the single dimension of ScaledData:
' Print the title of the column
Print #FileNumber, vbTab & "Ch " & RTrim(CWAI1.Channels(1).ChannelString)
' Channels string
For iScans = LBound(ScaledData) To UBound(ScaledData)
sData = Format(ScaledData(iScans), ".###0")
Print #FileNumber, vbTab & sData
Next
David Mc.
NI Applications Engineer