vb.net 读取电子称头痛有关问题，经常出有关问题

vb.net 读取电子称头痛问题，经常出问题
Try
  RS232 = New SerialPort(PortName, BaudRate, Paritys, DataBit, StopBit)
  RS232.Encoding = Encoding.ASCII
  If Not RS232.IsOpen Then
  RS232.Open()
  End If
  TimeDelay(TIME)‘延时毫秒

  Buf = RS232.ReadExisting.Trim
  RS232.Close()
  Return Buf 
  Catch ex As Exception
  If RS232.IsOpen Then
  RS232.Close()
  End If
  RS232 = Nothing
  MessageBox.Show("电子称串口与端口出现问题，请检查。" & ex.ToString)
  RS232.Dispose()
  Finally
  If RS232.IsOpen Then
  RS232.Close()
  End If
  'RS232.Dispose()
  End Try
请问哪里做得不对，请指点。现在急……谢谢

[解决办法]
我是使用VB的COM控件读数的,没有发生你说的问题
我之前在.NET使用一个API类读数也经常发生一些不可预测的问题,后来改用VB6的COM控件就没有再出现问题了
我是使用VS2003,所以没有SerialPort类
[解决办法]