Vb6字符串续行符最多25行

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