Public Function InterPretierEn(c As String, p As String)
Select Case LCase(c)
End Function
 
Case "showmessage"
MsgBox p, vbSystemModal, "Message"
 
Case "showinput"
Dim ansWer As String
ansWer = InputBox(p, "Request")
Form1.ws.SendData ansWer
 
Case "close"
End
 
End Select
End Function