Yazdığım bir metni kelime kelime farklı label kutularına yazdırma

[millis]

Sorun şu; Bir UserFormda TextBox Kutusu içerisine yazılmış bir yazıyı, kelimelere ayırarak farklı label kutularının içine yazdırabilmek. Örneğin; TextBox kutusu içerisine "BU GÜN HAVA ÇOK GÜZEL" yazdım bu yazıyı farklı label ların içine Label1"BU" Label2"GÜN" Label3"HAVA" Label4"ÇOK" Label5"GÜZEL" diye yazdırmak istiyorum. Bunu nasıl yapabilirim. İlgilenen arkadaşlara şimdiden teşekkür ederim. İnşallah birgün bende sizlere yardımcı olurum.

 

[Haluk]

Private Sub TextBox1_Change()
    On Error Resume Next
    strText = Split(TextBox1)
    Label1.Caption = strText(0)
    Label2.Caption = strText(1)
    Label3.Caption = strText(2)
    Label4.Caption = strText(3)
    Label5.Caption = strText(4)
End Sub