Option Explicit

Public Function ASCII_Code(text As String) As String
    Dim i, ascii As Integer
    Dim char, asciiValue As String

    ASCII_Code = ""

    For i = 1 To Len(text)
        char = Mid(text, i, 1)
        ascii = Asc(char)

        asciiValue = Format(CStr(ascii), "000")
        ASCII_Code = ASCII_Code & asciiValue
    Next i
    If ASCII_Code = "" Then ASCII_Code = "999"
End Function