Private Sub Form_Load()
  Dim strText As String
 
  While TextWidth(strText) > Label1.Width
      Label2.Caption = Right(strText, 1) & Label2.Caption 
      strText = Left(strText, Len(strText) - 1)
  Wend
  Label1.Caption = strText
End Sub