Dim values() As String = ModbusTCPCom1.Read("30001", 2)
Dim bytes(3) As Byte
BitConverter.GetBytes(Convert.ToInt16(values(0))).CopyTo(bytes, 0)
BitConverter.GetBytes(Convert.ToInt16(values(1))).CopyTo(bytes, 2)
Dim FloatValue As Single = BitConverter.ToSingle(bytes, 0)