This example converts all characters transmitted to the host to uppercase.
Private Sub Session_BeforeTransmitString(TheString As String, Continue As Boolean)
TheString = UCase(TheString)
End Sub