...

Private Sub Random

Dim I want as String = "What I want"

With I want
. W580i
. a car
. a break
. to go on a holiday someplace far from home
. to be close to God
. to finish studies and graduate well
. to be more purposeful
. to be better in music
End With

Dim I wish as String ="I wish"

With I wish
. everyday will be a Sunday
. I can eat all I want
. to be fit
. to win a car from the BSN draws
End With


End Sub