Не могу сделать програмки в Visual Basic 6 - VB

Формулировка задачи:

никак не получается,сколько ни пыталась... пожалуйста помогииите)))все КРОМЕ 5,срочно!!))

Решение задачи: «Не могу сделать програмки в Visual Basic 6»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Form_Load()
    Dim Text As String, i As Long, p As Long, w As Long
    Text = "Спой светик, не стыдись"
    Text = Text & " "
    i = 1: p = 1: w = 0
    Do Until i > Len(Text)
        Select Case Mid$(Text, i, 1)
        Case " ", ",", ".", "!", "?"
            If w <= i - p - 1 Then Text = Left$(Text, p + w) & _
                            Right$(Text, Len(Text) - p - w + 1): w = w + 1
            p = i + 1
        Case Else
        End Select
        i = i + 1
    Loop
End Sub
                        