Enviar dato a través del puerto serial COM3 desde un botón en PowerPoint con una macro de VBA

Como puedo hacer para enviar un dato como una letra o numero tipo texto o string a través del puerto serial COM 3 desde VBA, el proyecto consiste en enviar un carácter vía bluetooth, a un dispositivo, pero desde PowerPoint, al pulsar un botón se envía un carácter o letra.

Buscando en Internet encontré el siguiente código, pero no se como implementarlo como un macro en VBA de PowerPoint

Sub SendSerialData(ByVal data As String)
' Send strings to a serial port.
Using com1 As IO.Ports.SerialPort =
My. Computer. Ports. OpenSerialPort("COM1")
Com1. WriteLine(data)
End Using
End Sub