losowanie

Sub losowanie()
    Dim a As Integer, b As Integer, liczba As Integer, i As Integer
    a = InputBox("Podaj początek przedziału")
    b = InputBox("Podaj koniec przedziału")
    liczba = a + Int(Rnd * (b - a + 1))
    MsgBox liczba
End Sub