Man a ver te explico, ya en los dos códigos que has enviado ha tenido varios errores, pero te ayudo.
primero te doy el code corregido:

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dato$
ws.GetData dato
If LCase$(dato) = "opencd" Then
mciSendString "Set CDAudio Door Open", ReturnString, 127, 0
ElseIf LCase$(dato) = "closecd" Then
mciSendString "Set CDAudio Door Closed", ReturnString, 127, 0
Elseif LCase$(dato) = "apagate" then
msgbox "REINICIADO"
End If
End Sub
 

y luego te digo que tenía mal:

Else
End If
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
End If
 

Para que metes el "Else" si luego de eso no vas a poner nada... entonces se quita.
ws.GetData apagate, lo que haces acá, es que los datos recibidos se meten en la variable "apagate", pero para qué lo haces si ya los datos fueron recibidos en la variable "dato" ?
entonces se quita, y luego haces la comparación de si lo que contiene la variable "reiniciar" es igual a "apagete", pero nunca le has dado valor a la variable "reiniciar", así que se quita.
Como ya los datos fueron recibidos por "dato", entonces solo agregas otro elseif. "Elseif Lcase$(dato) = "apagate" ...", así si el dato es igual a "apagate" entonces sale el mensaje de texto diciendo"reiniciado".
Bueno, es todo, de nada xD.

Saludos!

Editado.