Display StrMessage In Userform Listbox

Dim rng As Range
    Dim rngFirstOccurrence As Range
    Dim lngColumns As Long
    Dim strMessage As String
    Dim varSearchValue
    
    varSearchValue = TextBox1.Text
    On Error Resume Next
    Set rngFirstOccurrence = Range("e7:e1500").Find(What:=varSearchValue) ', LookAt:=xlwhole
    Debug.Print rngFirstOccurrence.Address
    If Not rngFirstOccurrence Is Nothing Then
        For lngColumns = -5 To 6 'This will show the previous 3, current and next 3 cells of the row
            strMessage = strMessage & rngFirstOccurrence.Offset(, lngColumns).Value & vbCrLf
        Next lngColumns
        MsgBox strMessage
        strMessage = vbNullString
    Else
        MsgBox "No Match Found!"
        GoTo ExitSub
    End If
    
    Do
        Set rng = Nothing
        Set rng = Range("e7:e1500").FindNext(rngFirstOccurrence)
        If rng.Row <= rngFirstOccurrence.Row Then
            Exit Do
        End If
        Debug.Print rng.Address
        Err.Clear: On Error GoTo -1: On Error GoTo 0
        
        If Not rng Is Nothing Then
            Set rngFirstOccurrence = Nothing
            Set rngFirstOccurrence = rng
            For lngColumns = -5 To 6 'This will show the previous 3, current and next 3 cells of the row
                strMessage = strMessage & rng.Offset(, lngColumns).Value & vbCrLf
            Next lngColumns
            MsgBox strMessage
            strMessage = vbNullString
        End If
    Loop Until rng Is Nothing
ExitSub:
    Set rng = Nothing
    lngColumns = Empty
    strMessage = vbNullString
    Set rngFirstOccurrence = Nothing
    End

Dim rng As Range
    Dim rngFirstOccurrence As Range
    Dim lngColumns As Long
    Dim strMessage As String
    Dim varSearchValue
    Dim varCells(-5 To 6) As Variant     'Use same LBound and UBound as lngColumns loop
      varSearchValue = TextBox1.Text
    On Error Resume Next
    Set rngFirstOccurrence = Range("e7:e1500").Find(What:=varSearchValue) ', LookAt:=xlwhole
    Debug.Print rngFirstOccurrence.Address
    If Not rngFirstOccurrence Is Nothing Then
         For lngColumns = -5 To 6 'This will show the previous 3, current and next 3 cells of the row
            varCells(lngColumns) = rngFirstOccurrence.Offset(, lngColumns).Value
        Next lngColumns
        ListBox1.List = varCells
    Else
        MsgBox "No Match Found!"
        GoTo ExitSub
    End If
    
    Do
        Set rng = Nothing
        Set rng = Range("e7:e1500").FindNext(rngFirstOccurrence)
        If rng.Row <= rngFirstOccurrence.Row Then
            Exit Do
        End If
        Debug.Print rng.Address
        Err.Clear: On Error GoTo -1: On Error GoTo 0
        
        If Not rng Is Nothing Then
            Set rngFirstOccurrence = Nothing
            Set rngFirstOccurrence = rng
             For lngColumns = -5 To 6 'This will show the previous 3, current and next 3 cells of the row
            varCells(lngColumns) = rng.Offset(, lngColumns).Value  '<<<---- This line errors out Application defiened error
        Next lngColumns
        ListBox1.List = varCells
        End If
    Loop Until rng Is Nothing
ExitSub:
    Set rng = Nothing
    lngColumns = Empty
    strMessage = vbNullString
    Set rngFirstOccurrence = Nothing
    End