Convert If InStr Excel VBA to Access Expression?

[rhaas128]

I have the below code in Excel VBA. I was wanting to try and put this into Access as an expression perhaps? The goal is to look at each record in the table and parse out the Access Profile Name. Anyone able to help me out?

Dim R As Long, Data As Variant
  Data = Range("G2", Cells(Rows.Count, "G").End(xlUp))
  For R = 1 To UBound(Data)
    If InStr(Data(R, 1), "Access Profile Name : ") Then
      Data(R, 1) = Split(Split(Data(R, 1), "Access Profile Name : ", , vbTextCompare)(1), vbLf)(0)
    Else
      Data(R, 1) = "AP Name Unknown"
    End If
  Next
  Range("J2").Resize(UBound(<wbr>Data)) = Data

 

[rhaas128]

This worked perfectly. It wasn't too much different and I understand all of the logic and code you have. Thanks for your help! Really appreciate it.

 

[Joe4]

You are welcome!