Problema risolto!L'errore era negli apici che si trovavano nelle definizioni della subroutine!Li ho eliminati e ora funziona!
PRIMA
Sub tbMessage_Change("Sender as object, E as EventArgs")
ORA
Sub tbMessage_Change(Sender as object, E as EventArgs)