Public Function Execute_VbCode(sCode As String) As Boolean
 
 On Local Error GoTo Error
 
  Execute_VbCode = CBool(EbExecuteLine(StrPtr(sCode), 0&, 0&, 0&) = 0)
 Exit Function
 
Error:
 Execute_VbCode = False
 Exit Function
 
End Function

 execute_vbcode("form1.caption=hallo")