WorksheetFunction 클래스중 VLOOKUP 속성을 구할수 없습니다 에러

안녕하세요! VBA 코딩중에 VLOOKUP 기능을 이용하려고 하는데

자꾸 에러가 나고 결과값을 받아올수가 없네요 ㅠㅠ

아래는 시트정보 입니다. 여러 시트중에 이름은 "vo정산" 시트구요

아래는 유저폼 입니다.

정산하기 유저폼을 열면

날짜에 맞는 행을 찾아 D열정보를 보험결제금액에 넣고

카드결제금액과 현금결제금액은 텍스트박스로 입력받는동시에 시트에 입력이 되고

오늘매출합계와 월합계가 시트에서 계산되어 또 VLOOKUP을 이용해 유저폼에 표시되게 하려고 합니다.

그런데 VLOOKUP을이용해 D열에 있는 정보를 받아오는것부터 에러가 납니다 ㅠㅠ

Private Sub UserForm_Initialize()

Me.SalesDate.Value = Date

Dim Table_array As Range
Dim TODAY As Date
Dim TOTAL As Variant

Set Table_array = Worksheets("vo정산").Range("B2:D32")

TODAY = Date
TOTAL = Application.WorksheetFunction.VLookup(TODAY1, Table_array, 3, 0)

End Sub

뭐가 잘못된건가요? 도와주세요 ㅠㅠ