Excel VBA and Outlook appointments

Hello VBA masters! I have some code below that pull up outlook appointments just fine. I would like to add something to the body of the appointment. I set the DIM x as a 'ticket' number and then reference that input box value in the subject line and body. This number would be found in column A of the sheet I have open. What I'd like to do is add the value from column B where x is found. I'm thinking offset(x, 1).value but I'm not sure how it 'finds' x. Suggestions? I'm thinking too I need to add to my code where is searches for the input box value in column A, but not 100% sure how that goes...Thanks..

Sub LOBmeeting()
Dim x

x = InputBox("enter L ticket")
y = InputBox("Start DATE and time, enter like: 9/12/2011 1:30")


  With CreateObject("Outlook.Application").createitem(1)
    .RequiredAttendees = "first and last name"
    .Subject = x & " LOB meeting"
    .Location = "111-222-3333, 77002#"
    .body = "LOB meeting " & x & offset(x,1).value    .Start = y & ":00 pm" 
   ' .Save
    .display
  End With
End Sub

Hello All - - I was able to find a pretty good solution that I thought I would share...below is the code I use that works for me. The date/time of the appointment is always the time I use the code, from there I change it based on everyone's availablility...works pretty good!!

sub meeting()

Dim Lticket As String
Dim Dt_Name As Range

Lticket = InputBox(prompt:="Enter the L ticket for the meeting", Title:="LOB Meeting Scheduler")
    If Lticket = "" Then
    MsgBox ("You either clicked CANCEL or the L ticket is blank and we can't have that...Please try again!")
    Exit Sub
    End If
With Sheets("Status")
    Set Dt_Name = .Range("a2:a200").Find(what:=Lticket, LookIn:=xlValues, Lookat:=xlWhole, _
    SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    If Not Dt_Name Is Nothing Then Dt_Name.Select
  End With
  With CreateObject("Outlook.Application").createitem(1)
    .RequiredAttendees = "email.addresses@here.com;email.addresses2@here.com"
    .Subject = Lticket & " LOB meeting"
    .Location = "123-555-xxxx, nnnnn#"
    .body = "LOB meeting for: " & Lticket & " - " & Dt_Name.Offset(0, 1).Value & " - Due: " & Dt_Name.Offset(0, 9).Value & " - LOB: " & Dt_Name.Offset(0, 12).Value
    .Start = Format(Now(), "mm-dd-yyyy HH:mm:ss")
   ' .Save
    .display
  End With
End Sub