VBA 型の定義の仕方

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

実行時エラー’13’
型が一致しません

変数定義をしていないことが原因なのはわかっているのですが、定義の方法が間違っているのか、うまくいきません。

該当のソースコード

※PDFName は、AAA-000000（Aはローマ字、０は数字となっています。）の形ですべて共通です。

VBA
1Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
2
3    Cancel = True
4    PDFName = ActiveCell.Value
5
6
7     If Target.Column = 2 And Not (PDFName = "" Or PDFName = "0") Then
8
9        Date = Right(Left(PDFName, 6), 2)
10　　　・・・・・・・・・・省略
11        CreateObject("Shell.Application").ShellExecute FULL_Path & "\" & PDFName & ".pdf"
12　　　・・・・・・・・・・省略
13
14    End If
15
16End Sub
17
18

試したこと

Date

まず、上記型の定義がされていないのが原因だと考えたので、下記の例のように定義をしてみました。

VBA
1Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
2
3    Cancel = True
4    PDFName = ActiveCell.Value
5　　 Dim Date As String　
6　　・・・・・・・・・・・・・省略
7

Dateの定義をしましたが、構文エラーが出てしまいました。
どこが間違っているのか調べてもわかりませんでしたので、皆様のお力をお借りしたいと思います。