Public Function MbBit(Мb As Integer) As Long

Const k As Long = 8388608 '(8 * 1024 * 1024)

MbBit = Мb * k

End Function

Функция МbBit возвращает количество бит информации, если задано количество информации в мегабайтах. Очевидно, что у этой функции один аргумент Mb As Integer. В определении функции указывается не только тип аргумента, но и тип значения самой функции (As Long). Переменной МbBit присваивается числовое значение, оно и будет возвращаемым значением функции.

Вызов функцийотличается от вызова процедуры. Поскольку каждая функция возвращает в качестве результата значение, для того чтобы вызвать ее, надо записать имя функции в какое-либо выражение в том месте, где должно появиться значение вычисляемой функцией величины.

Пример:

Private Sub cmd_Click_Click()

Dim a As Integer

a = InputBox("Введіть кількістьМB", "Переведення МB в біти")

Print a; " МB = "; MbBit(a); " bit"