This line sends the all the data (count) to Excel sheet

oSheet.Range("A3").Resize(Val(Text1.Text),
UltimaSerial.ChannelCount).Value = oExcel.Worksheetfunction.Transpose(v)

If you don't want to send the raw data, you will need to extract the
data from the variant V first (see
http://www.ultimaserial.com/standard.html#GetData), perform the
conversion according to the spec of the sensor/gain, then use
something like

For i = 0 To UltimaSerial.ChannelCount - 1
oSheet.Range(Chr$(Asc("A") + i) + "1").Value = ...
Next

To fill the cells in the sheet

Or, you can create a new column and use the built-in feature of Excel
to perform the conversion

--- In ultimaserial_group@yahoogroups.com, "vr_man02" <vr_man02@...>
wrote:
>
> sorry dont mind i ask u how to put the format in the code dat i posted
> (1st post) so that it will show uV and Degree in excel? i keep looking
> in google n yahoo but i cant find it..im jam here..pls
>