Twin Basic

Dim str As StringANSI
 
str = "В самом EXE файле этот текст будет закодирован в кодировке ANSI и тут он тоже ANSI"

Private Const As StringANSI = "В самом EXE файле этот текст будет закодирован в кодировке ANSI и тут он тоже ANSI"

Private Sub afdasfasfa()
    Dim Arr&() '3 строки, 2 столбца    
    ReDim Arr(1 To 3, 0 To 1)
    Dim ptSA As LongPtr
    
    GetMemPtr VarPtr(Arr), ptSA
    With CType(Of SAFEARRAY2D)(ptSA)
        Debug.Print .cDims 'кол-во изерений
        Debug.Print .pvData 'указатель начала массива
        Debug.Print .Bounds(0).lLbound  'нижняя ганица 2й разерности
        Debug.Print .Bounds(0).cElements 'кол-во элементов 2й разерности (строк)
        Debug.Print .Bounds(1).lLbound  'нижняя ганица 1й разерности
        Debug.Print .Bounds(1).cElements 'кол-во элементов 1й разерности (столбцов)
    End With
End Sub

    [PreserveSig(False), UseGetLastError(False), DLLStackCheck(False)]
    Public DeclareWide PtrSafe Function GetPtr Lib "<hiddenmodule>" Alias "#7" (Src As Any) As LongPtr 'Alias GetMemPtr
    '***
    Debug.Print CType(Of SAFEARRAY)(GetPtr(Arr)).cDims

Sub Какаятопроцедура
On Error GoTo errHdr 'это должно быть в начале процедуры
 
'***
 
Exit Sub               'это должно быть в конце процедуры
errHdr:
    Stop                'когда попадаешь сюда, дальше нажимаешь F8 несколько раз и попадаешь на строку ошибки
    Debug.Print Err.Description
Resume
End Sub