Программа, сохраняющая свой исходный код - VB

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

Я решал задачу, в которой программа должна хранить свой исходный код. Как это лучше сделать?? 1. Сначала я подумал, может задействовать массив. И строчка за строчкой наполнить его кодом. Это долго. 2. А что если текстбокс?! Сначала скопировал текст и вставил в текстбокс. Но он не принимал более 255 байт. Я догадался присвоить ему свойство MultiLine=True На этот раз он принял ровно 28 000 байт. Хотя я читал о максимуме в 64 КБ. А может есть ещё что-то? Более емкое? И простое?

Решение задачи: «Программа, сохраняющая свой исходный код»

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

                            Option Explicit
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Const EM_LIMITTEXT      As Long = &HC5
Private Const WM_SETTEXT        As Long = &HC
 
Private Sub Form_Load()
    Dim s As String
    
    s = Space(1000000)
    SetLimit Text1, -1
    SetText Text1, s
    
    Debug.Print Len(Text1.Text)
    
End Sub
 
Private Sub SetText(txt As TextBox, value As String)
    SendMessage txt.hWnd, WM_SETTEXT, 0, ByVal StrPtr(value)
End Sub
Private Sub SetLimit(txt As TextBox, ByVal limit As Long)
    SendMessage txt.hWnd, EM_LIMITTEXT, limit, ByVal 0&
End Sub
                        