VBA Написать программу ввода с клавиатуры фамилии и возраста и записать это в файл произвольного доступа поможет следующий фрагмент кода

:

Sub WriteToFile()
    Dim fileNum As Integer
    Dim lastName As String
    Dim age As Integer
    
    ' Открытие файла для записи
    fileNum = FreeFile
    Open "C:\Users\user\Documents\info.txt" For Random As #fileNum Len = Len(lastName) + Len(age)
    
    ' Ввод данных с клавиатуры
    lastName = InputBox("Введите фамилию:")
    age = InputBox("Введите возраст:")
    
    ' Запись данных в файл
    Put #fileNum, , lastName
    Put #fileNum, , age
    
    ' Закрытие файла
    Close #fileNum
End Sub

Этот код открывает файл "info.txt" для записи произвольного доступа, запрашивает у пользователя ввод фамилии и возраста, а затем записывает эти данные в файл. Не забудьте изменить путь к файлу на нужный в вашей системе.