文字列をASCIIコードに変換する。

指定した文字をASCIIコードに変換します。変換するにはASC関数を利用します。
2文字以上の文字列に対して変換したい場合は、1文字ずつASC関数を利用して順次変換させる必要があります。
　※2文字以上をASC関数の引数に指定した場合は、最初の1文字のASCIIコードが返されます。

　●ASCIIコードを取得

'******************************************************************
'　ASCIIコードに変換
'*****************************************************************
Sub Main_Ascii()
    
    Dim sString As String
    
    'ASCIIコードを取得する。
    sString = "A"
    Debug.Print "「" & sString & "」→ " & Asc(sString)
    
    sString = "a"
    Debug.Print "「" & sString & "」→ " & Asc(sString)
    
    sString = "漢"
    Debug.Print "「" & sString & "」→ " & Asc(sString)
    
    '２文字以上の場合は最初の文字のみ変換
    sString = "漢字を含めた文字列"
    Debug.Print "「" & sString & "」→ " & Asc(sString)

End Sub

　■実行結果

　●文字列のすべてをASCIIコードを取得

'******************************************************************
'　ASCIIコードに変換（2文字以上の文字列すべてを変換）
'*****************************************************************
Sub Main_StringsToAscii()
    
    '文字列のすべてをASCIIコードに変換。
    Dim sStr As String
    sStr = "ABCDEFG1234567890abcdefg"
    
    Dim i As Long
    Dim sAsc As String
    For i = 0 To Len(sStr) - 1
        sAsc = sAsc & Asc(Mid(sStr, i + 1, 1)) & " "
    Next
    Debug.Print sStr
    Debug.Print "↓"
    Debug.Print sAsc

End Sub

　■実行結果