No se si te he entendido bien, pero según entiendo lo que quieres lo puedes hacer con los codigos que te han dejado, y para evitar que siga escribiendo pienso que te vendría bien volver a poner la variable a FALSE, de esta forma solo escribiria una vez, a la espera de que el valor de la variable vuelva a cambiar. En el momento que cambia a TRUE vuelves a concatenar y a poner en FALSE la variable.

Un saludo

Vale, ya lo he arreglado:

He puesto donde llamo al Offset de conexión del programa esto:

Dim parkBrakes As Offset(Of UShort) = New Offset(Of UShort)(&HBC8) 'Offset con el que llamo al programa
    Dim lastLights As Boolean
 
'Mas codigo del programa
 
Private Sub FlighInfo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
 
           Dim currentLights As Boolean
            currentLights = lights.Value(LightType.Landing)
            If currentLights <> lastLights Then
                lastLights = currentLights
                Dim Message2 As String = IIf(currentLights, "Landing Lights ON", "Landing Lights OFF")
                RichTextBox1.Text += Environment.NewLine & (Message2)
            End If
        Catch ex As Exception
 
        End Try
    End Sub
    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
 
    End Sub
 

Pero ahora tengo una duda. Por que si defino la variable lastLights dentro del Private Sub FlighInfo no funciona? Pasa el error anteriormente mencionado, se repite el mensaje varias veces.