Option Compare Database
Dim lf As String
Dim x As Integer
Dim keepv As String
Option Explicit

Function sam0201()
    sam0201 = "1" & Chr(13) & "2"
End Function

Function sam0202()
    lf = Chr(13)
    sam0202 = "1" & lf & "2" & lf & "3" & lf & "4"
End Function

Function sam0203(y As Integer)
    lf = Chr(13)
    For x = 1 To y
        sam0203 = sam0203 & x & lf
    Next
End Function

Function sam0204(y As Integer)
    lf = Chr(13)
    For x = 1 To y
        keepv = keepv & x & lf
    Next
    sam0204 = keepv
End Function