Mover texto en la barra de estado en Access

[Fernando126]

Estube tratando de adaptar al código, pero tengo un problema. El codigo es el siguiente y por lo que pude ver, el segmento en rojo debería ser reemplazado por SysCmd(4, "texto") en la funcion RotaCadena() pero no me permite hacerlo. Ayuda porfavor!!!. El codigo es:
Option Explicit
Const consngVelocidad As Single = 5

Private Sub Form_Open(Cancel As Integer)
TimerInterval = 1000 / consngVelocidad
End Sub

Private Sub Form_Timer()
lblMarquesina.Caption = RotaCadena(lblMarquesina.Caption, 1)End Sub

Private Function RotaCadena( _
Cadena As String, _
Optional ByVal Elementos As Long = 1) _
As String
Dim lngCadena As Long
lngCadena = Len(Cadena)
RotaCadena = Mid(Cadena, Elementos + 1) _
& Left(Cadena, Elementos)
End Function