ListBox1.List=aR

Sub test()
    Dim iRow As Integer
    Dim Txt As String
    
    Txt = "5+1"
    iRow = Application.Evaluate(Txt)
    
    MsgBox iRow
End Sub

Sub test()
    Dim iRow As Integer
    Dim Txt as String

    iRow=5
    Txt="iRow+1"
    
    iRow = Application.Evaluate(Txt)
    
    MsgBox iRow
End Sub

Dim aR() as Variant
a=[{1, 2, 3, 4, 5; 11, 22, 33, 44, 55; 111, 222, 333, 444, 555}]

Dim aR() as Variant
a=[{1, 2, 3, 4, 5; 11, 22, 33, 44, 55; _
111, 222, 333, 444, 555 }]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim X As Object
End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim X As Object
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim X As Object
End Sub

Select Case KeyAscii
    ...
    Case Else
        Beep
        TextBox1.BackColor = vbRed
        Application.Wait (Now + TimeValue("00:00:01"))
        TextBox1.BackColor = vbWhite
End Select

Shell "c:\Program Files\Microsoft Office\Office14\excel.exe d:\БД.aaa"

wd.Paragraphs(1).Range.Text = Sheets("Лист1").Range("A1")

Public Function c(a As Double, b As Double) As Double
    c = a + b
    If c < 0 Then
        ячейка_куда_введена_формула.Interior.Color = vbRed
    Else
        ячейка_куда_введена_формула.Interior.Color = vbGreen
    End If
End Function

Public Function СЛУЧМЕЖДУСТАТ(Optional Нижн_граница As Double = 0, Optional Верх_граница As Double = 1) As Double
    Application.Volatile False
    Randomize
    СЛУЧМЕЖДУСТАТ = (Верх_граница - Нижн_граница) * Rnd + Нижн_граница
End Function

Public Sub RegisterFunction()
    Application.MacroOptions "СЛУЧМЕЖДУСТАТ", Description:="Генерация случайного числа", Category:="Определенные пользователем", ArgumentDescriptions:=Array(" - наименьшее дробное число которое возвращает функция СЛУЧМЕЖДУСТАТ", " - наибольшее дробное число которое возвращает функция СЛУЧМЕЖДУСТАТ")
End Sub