folgenden code habe ich.

Private Sub Workbook_Open()
Dim rFind As Range, SuTxt As Variant
SuTxt = "----------"
If SuTxt = "" Then Exit Sub
Set rFind = Columns(9).Find(What:=SuTxt, After:=[i1], LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rFind Is Nothing Then Exit Sub
If rFind.Offset(0, -1) = Empty Then Exit Sub Else msgbox rFind.Offset(0, 1), vbInformation, "Information"

End Sub

nun möchte ich das der inhalt der zelle rechts neben der mit -------- auch in der selben msgbox angezeigt wird. wie muss da dann der code aussehen. bitte um hilfe