ＶＢＡ。リストボックスの値が条件式にかかわるＩｆ文で構文エラー。

かなり初心者です。VBAの入力フォームを作成しています。ユーザーフォームのコードを書いています。フォームのリストボックスの中の選択肢に応じて入力するシートを変えたいのですが、If文で構文エラーがでてしまいます。原因はなんでしょうか。If文を消すとエラーはでません。説明が下手ですいません。
やっていることは以下の通りです。
・初期化
・リストボックスの作成（二つ)
・ブックを開くと入力シートがでるようにした
・入力者が入力した内容の分類に応じてデータ入力するシートを変えて入力したい←問題の起きているところです

よろしくお願いします。

'フォーム初期化
Private Sub UserForm_Initialize()
With ListBoxHousing
.AddItem "Fixed"
.AddItem "Iris"
.AddItem "MLC"
End With

With ListBoxTracking
    .AddItem "6D Skull"
    .AddItem "Fiducial"
    .AddItem "Xsight Spine"
    .AddItem "Synchrony"
    .AddItem "XLT"
    .AddItem "Spine Prone"
End With

Me.TextBoxDate.Value = Date

End Sub

Private Sub Workbook_Open()
Me.Show

End Sub

Private Sub CommandButton1_Click()
lf ListBoxTracking.Value = "6D Skull" Then
Dim LastColumn As Long
With Worksheets("6D Skull")
LastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column
.Cells(1, LastColumn + 1).Value = TextBoxDate.Value
End With
TextBoxDate.Value = ""
TextBoxDate.SetFocus

        With Worksheets("6D Skull")
            LastColumn = .Cells(2, Columns.Count).End(xlToLeft).Column
            .Cells(2, LastColumn + 1).Value = TextBoxl.Value
        End With
        TextBoxl.Value = ""
        TextBoxl.SetFocus
        
        With Worksheets("6D Skull")
            LastColumn = .Cells(3, Columns.Count).End(xlToLeft).Column
            .Cells(3, LastColumn + 1).Value = TextBoxa.Value
        End With
        TextBoxa.Value = ""
        TextBoxa.SetFocus
        
        With Worksheets("6D Skull")
            LastColumn = .Cells(4, Columns.Count).End(xlToLeft).Column
            .Cells(4, LastColumn + 1).Value = TextBoxs.Value
        End With
        TextBoxs.Value = ""
        TextBoxs.SetFocus
        
        With Worksheets("6D Skull")
            LastColumn = .Cells(5, Columns.Count).End(xlToLeft).Column
            .Cells(5, LastColumn + 1).Value = TextBoxa2.Value
        End With
        TextBoxa2.Value = ""
        TextBoxa2.SetFocus
        
        With Worksheets("6D Skull")
            LastColumn = .Cells(6, Columns.Count).End(xlToLeft).Column
            .Cells(6, LastColumn + 1).Value = TextBoxa3.Value
        End With
        TextBoxa3.Value = ""
        TextBoxa3.SetFocus
        
        With Worksheets("6D Skull")
            LastColumn = .Cells(7, Columns.Count).End(xlToLeft).Column
            .Cells(7, LastColumn + 1).Value = TextBoxtotal.Value
        End With
        TextBoxtotal.Value = ""
        TextBoxtotal.SetFocus
End If

MsgBox "入力しました"

Unload Me

End Sub