От персонажа к chr ()

Question

У меня есть строка, и я хочу преобразовать каждый символ в соответствующий символ ASCII.

Sub IterateCharactersObject()
    Dim ch As Characters, n As Long

    With ThisWorkbook.Sheets("Sheet1").Range("A1")
        For n = 1 To .Characters.Count
            Set ch = .Characters(n, 1)

            Debug.Print ch.Text & ", " & Asc(ch) '<-- what should go in place of Asc(ch)?

        Next n
    End With

End Sub

Не уверен, какую функцию я ищу и не могу найти.

Если моя строка начиналась с "A big ....", тогда

• Когда вывод n= 1 равен A, 65
• Когда вывод n= 2 равен , 32

Я, по сути, ищу обратную функцию Chr() вVBA

Answer 1

Использование String и Mid

Sub IterateCharactersObject()
    Dim ch As String, n As Long

    With ThisWorkbook.Sheets("Sheet1").Range("A1")
        For n = 1 To .Characters.Count
            ch = Mid(.Value, n, 1)

            Debug.Print ch & ", " & Asc(ch) '<-- what should go in place of Asc(ch)?

        Next n
    End With

End Sub