ASCII码

Private Sub CommandButton1_Click()
    Dim s, str As String
    Dim i, j, k As Long
    s = Trim(Sheet1.Cells(1, 1))
    str = ""
    For i = 1 To Len(s)
        str = str & Asc(Mid(s, i, 1)) & ","
    Next i
    Sheet1.Cells(2, 1) = str
End Sub