Option Compare Database
Dim x As Integer
Option Explicit

Function sam0101(getint As Integer)
    x = 2
    sam0101 = getint * x
End Function

Function sam0102(getint As Integer)
    Dim i As Integer
    sam0102 = 0
    For i = 1 To getint
        sam0102 = sam0102 + i
    Next
End Function

Sub sam0103(getint As Integer)
    Dim i As Integer
    i = getint * 2
    MsgBox i
End Sub

Sub sam0104(getint As Integer)
    Dim i, j As Integer
    j = 0
    For i = 1 To getint
        j = j + i
    Next
    MsgBox j
End Sub