Private Const myText = _
  "D:\Programme\MyOrdner1\MyOrdner2\Programme\MyOrdner1\MyOrdner2\myFile.mp3"
Dim dtext As String
Dim dRightToLeft As Boolean
 
Private Sub Command1_Click()
dtext = myText
Text1.Text = dtext
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
If Len(Text1.Text) = Len(myText) Then
dRightToLeft = True
ElseIf Label1.Width < Text1.Width Then
dRightToLeft = False
End If
 
If dRightToLeft = True Then
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
Label1.Caption = Text1.Text
Else
Text1.Text = Right(myText, Len(Text1.Text) + 1)
Label1.Caption = Text1.Text
End If
End Sub