LOOP´e kode

Not 100& sure what your after but try this and then we can take it from there

Option Compare Database

Public Message As String


Private Sub Form_Open(Cancel As Integer)

    Message = "Dette er den ny lysavis til databasen * Dette er den ny lysavis til databasen * "

    txtmarquee = Message
   
End Sub

Private Sub Form_Timer()
Dim firstCharacter As String

   
    'firstCharacter = Left(txtmarquee, 1)
    txtmarquee = Mid$(txtmarquee, 2, Len(txtmarquee) - 1)
 
    If Len(txtmarquee) = 0 Then txtmarquee = Message
 

End Sub

100 %

the code just removes left character until string is empty and then starts over again, I maybe have a feeling that you want to maybe put the left character on th eend of the string?

If so

Private Sub Form_Timer()
Dim firstCharacter As String

   
    firstCharacter = Left(txtmarquee, 1)
    txtmarquee = Mid$(txtmarquee, 2, Len(txtmarquee) - 1) & firstCharacter
 
    'If Len(txtmarquee) = 0 Then txtmarquee = Message
 

End Sub

Det jeg meget gerne vil have at den gør er følgende.

Når hele message er kørt gennem skal den blot starte forfra

Som det er nu, stopper den, når sidste karakter fjernes

Check selv her :

https://1drv.ms/f/s!Aog7vvlTrHB6ieIwojTAEB6oI5lq5Q

noget som dette?

Private Sub Form_Timer()
for index = 1 to 3
index = 1
txtmarquee = Message
Dim firstCharacter As String
firstCharacter = Left(txtmarquee, 1)
Message = Mid$(Message, 2, Len(Message) - 1)
next
End Sub

have you not tried my code?

as far as I can see the first example I gave does that

txtmarquee = Message
Dim firstCharacter As String
firstCharacter = Left(txtmarquee, 1)
Message = Mid$(Message, 2, Len(Message) - 1)
Message = Message + firstCharacter


Dette virker .... ;o)

OK, so your taking the first character and appending it to end of string ;-)