Option Explicit
' Генерирует случайное число от b до e
Function rnd2(ByVal b As Double, ByVal e As Double) As Double
  rnd2 = b + (e - b) * Rnd
End Function

' генерирует массив случайных чисел
Sub GenRnd()
    Dim n As Long  ' количество чисел в массиве
    Dim arr() As Long, i As Long, d As Double, b As Double, e As Double
    n = 100000
    ReDim arr(1 To n)
    For i = 1 To n
        d = rnd2(0, 100)   ' для процентного распределения
        Select Case d
            Case Is > 30: b = 79.5: e = 100.5
            Case Is > 15: b = 59.5: e = 79.5
            Case Is > 5: b = 39.5: e = 59.5
            Case Else: b = 9.5: e = 39.5
        End Select
        arr(i) = Round(rnd2(b, e), 0)
    Next i
End Sub

Sub Test()
  Debug.Print -2 ^ 2
End Sub

Sub Wait(ByVal ms)
  Dim t As Double
  t = Timer
  While Timer < t + ms / 1000
    DoEvents
  Wend
End Sub

Sub test()
  Wait 100
End Sub

Sub RunMacroThisWorkbook()
  Application.Dialogs(xlDialogRun).Show , 1
End Sub

ДопИнформация.Controls(Контрол).Value = Format(TB, S)

Sub test()
  MsgBox IIf(2 > 1, 0, 1 / 0)
End Sub

Option Explicit
Function MyFunc(arg)
  MsgBox "MyFunc: " & arg
  MyFunc = -arg
End Function

=ЕСЛИ(A1>1; 1; MyFunc(A1))