テキストボックスで入力した日付を基にデータを抽出したい

前提

初心者です。いつもお世話になっています。

ユーザーフォームのテキストボックスに日付を入力し、その日付に基づいて元データから抽出を行い、メッセージボックスで表示させるというマクロを組んでいます。
元データには日付をシリアル値&a（または&b）で管理しているものがあります。
（例：2021/9/1　と入力すると 44075a　または　44075b　の2つのデータが該当します。）

実現したいこと

ユーザーフォームのテキストボックスに日付を入力し、その日付に基づいて元データから抽出を行い、メッセージボックスで表示させたいです。
（2021/9/1と入力して、VLOOKUPで44075bの値を検索し、検索範囲内にあるデータを返したいです。）

発生している問題・エラーメッセージ

WorksheetFunction クラスの VLookup プロパティを取得できません。
と表示されます。
この場合、コードが間違っているのでしょうか。
それともコード自体に問題はなく、参照先の問題なのでしょうか。

エラーメッセージ

該当のソースコード

VBA
1
2Option Explicit
3
4Private Sub CommandButton1_Click()
5   
6    MsgBox 
7            "数値1 : " & vbCrLf & _
8            WorksheetFunction.VLookup("TextBox1.value" & "b", Worksheets("form2").Range("C:J"), 8, False)
9End Sub
10

試したこと

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

ご希望のことは下記のようなことでしょうか。

ユーザーフォームのテキストボックス(TextBox1)に 2021/9/1 と入力する。
2021/9/1 をシリアル値(44440)に変換。
セルには 44440b というような値が入力されている。
44440b をVLookupで検索し、該当する値を返したい。

※質問では、「44075bの値を検索し」となってますが、2021/9/1 のシリアル値は 44440 だと思います。

vba
1Private Sub CommandButton1_Click()
2    Dim d As Date
3    d = DateValue(TextBox1.Value) '日付型に変換 "2021/9/1"→ #2021/9/1#
4    Dim l As Long
5    l = CLng(d)   'シリアル値に変換 #2021/9/1# → 44440
6    Dim s As String
7    s = l & "b"   '文字列に変換してbを付与 44440 → "44440b"
8
9    MsgBox "数値1 : " & vbCrLf & _
10            WorksheetFunction.VLookup(s, Worksheets("form2").Range("C:J"), 8, False)
11End Sub

わかりやすいように一つずつ変換してますが、下記のように一気に変換してもOKです。

vba
1    Dim s As String
2    s = CLng(DateValue(TextBox1.Value)) & "b"
3    MsgBox "数値1 : " & vbCrLf & _
4            WorksheetFunction.VLookup(s, 8, False)