The DirectPlayMessage.WriteDouble method writes a Double to the message data and advances the write pointer.
object.WriteDouble(val As Double)
If the method fails, an error is raised and Err.Number will be set.