Mit Inputbox suchen, wert ausgeben

Ich möchte in einem anderen Tabellenblatt nach einem Begriff suchen,
der in einer InputBox eingegeben wurde (Bsp:100, Tabelle 2, Zelle"A1").
Ausgegeben werden soll per MsgBox der Wert, der neben der Zelle mit
dem Wert 100 steht (Zelle"B1")

Ich hab es ja schon fast, den Wert finde ich, aber wie sag ichs der
MsgBox wie sie den Inhalt der Zelle anzeigt??

Dies Makro habe ich im Archiv gefunden und versucht anzupassen,
bei den ????????? müsste dan hin das der Inhalt aus "sFirst" in
der MsgBox angezeigt wird.

Sub Suchen()
Dim rng As Range
Dim iCounter As Integer
Dim sSearch As String, sAddress As String, sFirst As String
Dim bln As Boolean
sSearch = InputBox("Bitte Suchbegriff eingeben:", , "100")
If sSearch = "" Then Exit Sub
For iCounter = ActiveSheet.Index - 1 To 1 Step -1
Set rng = Worksheets(iCounter).Columns("B").Find _
(sSearch, lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
sFirst = rng.Address(1, False)
MsgBox "Kürzel zu " & ???????????????????????????
bln = True
Do Until sAddress = sFirst
Set rng = Worksheets(iCounter).Columns("A").FindNext(after:=rng)
sAddress = rng.Address(False, False)
If sFirst <> sAddress Then
MsgBox Worksheets(iCounter).Name & "!" & sAddress
End If
Loop
sAddress = ""
sFirst = ""
End If

CU
Bernhard