Speak from specific cell value

Hi all,

I need some help. I've excel 2003 and I'm using the searching module from below (works fine):
I need to add the line (see in the code).

Private Sub Worksheet_Change(ByVal Target As Range)

Set s = CreateObject("SAPI.SpVoice")

If Target.Address = "$B$1" Then
    If Application.WorksheetFunction.CountIf(Range("H3:H5000"), Target.Value) > 1 Then
        Beep
        For i = 1 To 100
        i = i + 1
        Next i
        s.Speak "Check the list"
        SelectFrm.Show
        s.Speak "Ready! Scan the Full box quantity."
    Else       
        On Error GoTo ErrHandler
        smthng = Range("H3:J5000").Find(Target.Value).Address
        Range(smthng).Offset(0, 5).Activate
' I want to add here s.Speak value of cell the same row, column -2
        s.Speak "Ready! Scan the Full box quantity."
        End If
    Else: End If

ErrHandler:
    s.Speak "Not!"
    For i = 1 To 100
    i = i + 1
    Next i
    s.Speak "on the list"
    MsgBox "Value not found"
    Range("B1").Activate
End Sub