Private Sub Command5_Click()
dat = "-f1"
ws2.SendData dat
End Sub

Private Sub ws2_DataArrival(ByVal bytes As Long)
 
Dim dat As String
ws2.GetData dat
If dat = "-f1" Then
Dim Msg as string
Msg = "Hallo!"
MsgBox Msg, vbinformation
End If