ลองเขียนฟังก์ชั่นแบบนี้ดูครับ

- ใส่โค๊ดลงใน Module

Public Function Multiply_time(aTime As Date, aItem As Integer) As String
    Dim z, h, n, s
    z = (Hour(aTime) * 3600) + (Minute(aTime) * 60) + Second(aTime)
    z = z * aItem
    h = z \ 3600
    n = (z - (h * 3600)) \ 60
    s = z - ((n * 60) + (h * 3600))
    Multiply_time = Format(h, "00") & ":" & Format(n, "00") & ":" & Format(s, "00")
End Function

- การใช้งานฟังก์ชั้น
สินค้า a = 5 นาที ต้องใช้รูปแบบเป็น 00:05:00
จำนวน = 10 ชิ้น

Multiply_time(TimeValue("00:05:00"), "10")

ผลลัพธ์ = 00:50:00

ปรับใช้ดูครับ