ຟັງຊັນ Partition [VBA]

        Option VBASupport 1
        Option Explicit
        Sub Test_Partition
            Dim retStr As String
            retStr = Partition(20, 0, 98, 5)
            print "20:24  ໂຕເລກ 20 ຢູ່ໃນຂອບເຂດ: " & retStr
            retStr = Partition(20, 0, 99, 1)
            print " 20: 20 ໂຕເລກ 20 ຢູ່ໃນຂອບເຂດ: " & retStr
            retStr = Partition(120, 0, 99, 5)
            print  "100:  ໂຕເລກ 120 ຢູ່ໃນຂອບເຂດ: " & retStr
            retStr = Partition(-5, 0, 99, 5)
            print "   : -1 ໂຕເລກ -5 ຢູ່ໃນຂອບເຂດ: " & retStr
            retStr = Partition(2, 0, 5, 2)
            print " 2: 3 ໂຕເລກ 2 ຢູ່ໃນຂອບເຂດ: " & retStr
        End Sub