Sub và function

Cùng xem xét ví dụ : Tính diện tích hình chữ nhật

Với Function :
Function tinh_dien_tich(chieu_dai as Double, chieu_rong as Double)
tinh_dien_tich= chieu_dai * chieu_rong
End Function

Function sẽ được sử dụng như những fuction có sẵn trong excel

Với sub :

Sub main()
Dim chieu_dai as double
Dim chieu_rong as double
chieu_rong = InputBox( Prompt:= " Xin nhap chieu rong")
chieu_dai = InputBox(Prompt:= "Xin nhap chieu dai")
MsgBox tinh_dien_tich(chieu_dai*chieu_rong)
End Sub

Như vậy sử dụng sub sẽ cho kết quả theo cách chúng ta muốn