Wenn du nichts vorgefertigtes findest oder nutzen willst: Denk dir ein System aus, nach dem abschickst, was du machen willst. So kannst du auch fehlerhafte Nachrichten abfangen oder verhindern, dass jemand z.B. "1234" abschickt und eine MsgBox provoziert
z.B so: "MsgBox %;% Button_OK %;% " & TextBox1.Text
Dann splittest du den empfangenen String (Dim infos() As String = Split("%;%")
und kannst die Nachricht in die TextBox1 eintragen:
TextBox1.Text = infos(2)
jetzt kannst du mit infos(0) unterscheiden, was gemacht werden soll:
If (infos(0) = "MsgBox) Then
If (infos(1) = "Button_OK" Then
MsgBox(infos(2), Style.Exclamation + MsgBoxStyle.OKOnly)
End If
Else
MsgBox(infos(2), Style.Exclamation)
End If
Keine Garantie, dass es syntaktisch korrekt ist, aber so sollte sich das umsetzen lassen.