Option Compare Database
Dim lf As String
Dim x, y, z As Integer
Dim keepv As String
Option Explicit

Function sam0301(y As Integer)
    keepv = ""
    lf = Chr(13) & Chr(10)
    For x = 1 To y
        keepv = keepv & x
        For z = 1 To x
            keepv = keepv & "*"
        Next
        keepv = keepv & lf
    Next
    sam0301 = keepv
End Function

Function sam0302(y As Integer)
    keepv = ""
    lf = Chr(13) & Chr(10)
    For x = 1 To y
        keepv = keepv & "*"
        For z = 1 To x
            keepv = keepv & x
        Next
        keepv = keepv & lf
    Next
    sam0302 = keepv
End Function

Function sam0303(y As Integer)
    keepv = ""
    lf = Chr(13) & Chr(10)
    For x = 1 To y
        For z = 1 To 15 - x
            keepv = keepv & "_"
        Next
        For z = 1 To x
            keepv = keepv & z
        Next
        keepv = keepv & "*" & lf
    Next
    sam0303 = keepv
End Function

Function sam0304(y As Integer)
    Call sam0300
    For x = 1 To y
        For z = 1 To 15 - x: keepv = keepv & "_": Next
        For z = 1 To x
            keepv = keepv & z
        Next
        For z = x - 1 To 1 Step -1
            keepv = keepv & z
        Next
        For z = 1 To 15 - x: keepv = keepv & "_": Next
        keepv = keepv & x Mod 2
        keepv = keepv & lf
    Next
    sam0304 = keepv
End Function

Sub sam0300()
    keepv = ""
    lf = Chr(13) & Chr(10)
End Sub