VB se comunica con Siemens S7-200PLC a través del código fuente del programa Ethernet
Hice los de Delta y los de Siemens son iguales, puedes consultarlos
Private Sub Command1_Click()
Dim strout As String
Dim str As String
Timer1.Enabled = False
str = "00050C30FF00" 'M1072 es el indicador de inicio y parada del PLC. Verifique la tabla de direcciones, M1072 es OC30, FF00 está configurado en ON y 0000 está configurado en OFF.
'Los anteriores son todos formatos fijos, así que recuérdelos.
LRCC = LRC(str) 'Calcula el código de verificación lrc de str.
strout = ":" + str + LRCC + Chr$(13) + Chr$(10) 'Datos a enviar. 13 es D, 10 es A
MSComm1.Output = strout
Timer1.Enabled = True
End Sub