Sheet1の列Aで「123456」を検索し、その右横のセルの値を取り出します。

Sub 値を検索≪VLOOKUPワークシート関数≫()
  Dim Result
  Result = Application.VLookup(123456, Sheet1.Columns("A:B"), 2, False)
  If IsError(Result) Then
    MsgBox "該当するデータはありません", vbExclamation
  Else
    MsgBox Result
  End If
End Sub

通常、VBAでワークシート関数を使用する場合、「Application.WorksheetFunction.Vlookup」と記述しますが、目的の値が見つからない場合、Findメソッドと同様に実行時エラーが発生します。しかし、WorksheetFunctionを省略すると回避できるようです。