VBA / SQL: как построить SQL с функцией в предложении WHERE?

Я бы создал функцию под названием isValidState(), которая возвращает логическое значение

Function isValidState(st As String) As Boolean
    Select Case st
        Case "AL", "FL", "NY" ...
            isValidState = True
        Case Else
            isValidState = False
    End Select
End Function

Другой способ - создать таблицу со всеми кодами состояний (назовем ее MyStateTable)

Function isValidState(st As String) As Boolean
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("MyStateTable")
    rs.FindFirst ("StateFieldName = '" & st & "'")
    If rs.NoMatch Then
        isValidState = False
    Else
        isValidState = True
    End If
    rs.Close
End Function

Ваш запрос будет выглядеть примерно так

UPDATE tblInvoices
SET [Invoice Flag] = True
Where isValidState(getState(description)) = True

Редактировать:

Function getState(description As String) As String
    Dim s() As String
    s = Split(description, ".")
    If (UBound(s) > 1) then
        getState = s(UBound(s) - 1)
    Else
        getState = vbNullString 'Or change this to "" or something else that makes sense for your usage'
    End if
End Function