I've created a timer which makes a textbox's text appear to be moving from left to right, how can I make it look smoother?

Public Class Form1
    Dim CurrentName As String = String.Empty

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        CurrentName = "I'm looking for somehelp with this :-) Hope everyone's days going well"
        CurrentName = CurrentName + "          "
    End Sub

    Private Sub RotateTextbox_Tick(sender As Object, e As EventArgs) Handles RotateTextbox.Tick
        If Not CurrentName = String.Empty Then
                Dim FirstLetterCPN As String = CurrentName.Substring(0, 1)
                CurrentName = CurrentName.Substring(1, CurrentName.Length - 1) & FirstLetterCPN
        End If
        TextBox1.Text = CurrentName
    End Sub
End Class