<editBox id="txtbx1" label="Metin Kutusu :" On Change="EditBoxOlaylari" />
<!-- on Change birleşik yazılacak -->

Public Sub EditBoxOlaylari(control As IRibbonControl, strText As String)
 
   Select Case control.Id
 
     ' Case "editbx49" 'EditBox id'si kullanılarak yapı oluşturulur..
 
      Case Else
 MsgBox "Metin kutusuna " & strText & " yazdınız.." & Chr(13) & _
     Chr(13) & "ID: " & control.Id, vbInformation, "Taruz"
 
    End Select
 
End Sub