Ottenere il valore ASCII di un carattere

Per ottenere il valore ASCII dei singoli caratteri alfanumerici e di punteggiatura, appartenenti ad un testo, è possibile usare una variabile vettoriale di tipo "Byte[]":

Public Sub Main()
 
 Dim l As Long
 Dim bb As Byte[]
 
 bb = Byte[].FromString("Gambas")
 l = Long@(bb.Data)
 Print l
  
End

o usare una variabile stringa e la funzione "VarPtr()":

Private s As String


Public Sub Main()

 Dim p As Pointer
 Dim p1, p2 As Pointer
 
 s = "Gambas"
 
 p1 = VarPtr(s)
         
 p2 = Pointer@(s)
 
' Mostra l'intero contenuto in formato testuale:
 Print p2
 
End

oppure usare la funzione "Alloc()":

Public Sub Main()
 
 Dim p As Pointer
 
 p = Alloc("Gambas")
  
 Print Hex(Long@(p)), Long@(p)
  
 Free(p)
 
End