ใช้ภาษา VBA ในการเลือกข้อมูลจากตารางในไมโครซอฟท์ เอกซ์เซล:

 '''Sub''' LoopTableExample    '''Dim''' db As DAO.Database    '''Dim''' rs As DAO.Recordset    '''Set''' db = CurrentDb    '''Set''' rs = db.OpenRecordset("SELECT * FROM tblMain")    '''Do Until''' rs.EOF        MsgBox rs!FieldName        rs.MoveNext    '''Loop'''    rs.Close    db.Close    '''Set''' rs = '''Nothing'''    '''Set''' db = '''Nothing''' '''End Sub'''

VBA ยังสามารถสร้างฟังก์ชันของผู้ใช้ (User Defined Function : UDF) ที่ใช้ในไมโครซอฟท์ เอกซ์เซล:

Public Function BUSINESSDAYPRIOR(dt As Date) As Date

   Select Case Weekday(dt, vbMonday)   Case 1       BUSINESSDAYPRIOR = dt -3   Case 7       BUSINESSDAYPRIOR = dt -2   Case Else       BUSINESSDAYPRIOR = dt -1   End SelectEnd Function