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