I'm trying to set up an experiment where I need to send a command to an external mass balance, (output) and collect the value the scale reads (input). I need to send the characters "?1" out commport 2 and then place the numbers that come back into an array for analysis. I only have VB 6.0 working model, and it doesn't seem to have the communications control. Can anyone give me an example of how to set this up? Here's a chunk of what I've got so far:
How do I set up the variables? (MSComm1, etc.)

'Set up communication with balance
MSComm1.CommPort = 2
MSComm1.Settings = "2400,N,8,1"
MSComm1.PortOpen = True

'Set up start and end times
StartTime = Timer
EndTime = StartTime + (SampleTime * 60)

'Run timer loop until sampling time is reached
Do While CurrentTime < EndTime
i = i + 1

'Take a mass measurement:
MSComm1.Output = "?1"
MassData(i) = MSComm1.Input