Private Sub Form_Load()
0     Dim ret As String
1     ret = "QQ"
2     ret = ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret & _
            ret
27   MsgBox ret
End Sub