codice:
Private Sub Command1_Click()
Dim A() As Byte
Dim ls_temp As String
Dim ls_char As String * 1
Dim l As Long
    Open "c:\ip.txt" For Binary As #1
        ls_temp = Space(LOF(1))
        Get #1, , ls_temp
    Close #1

    ReDim A(0) 'il primo elemento è vuoto
    For l = 1 To Len(ls_temp)
        ls_char = Mid$(ls_temp, l, 1)
        ReDim Preserve A(UBound(A) + 1)
         A(UBound(A)) = Asc(ls_char)
         Debug.Print A(UBound(A))
    Next l
    
End Sub