VLOOKUP, Frage zur Syntax

Sub kjlkj()
Dim v_criteria As Variant
Dim v_array
Dim v_column As Integer
Dim v_validity As String
i = 1
Do Until IsEmpty(Cells(i, 1).Value)
v_criteria = Sheets("Sheet1").Cells(i, 1).Value
v_array = Sheets("Sheet2").Range("A1:B8")
v_column = 2
v_validity = "False"
Sheets("Sheet1").Activate
Cells(i, 2).Formula = "=VLOOKUP(" & v_criteria & "," & v_array & "," & v_column & "," &  _
v_validity & ")"
i = i + 1
Sheets("Sheet1").Activate
Loop
End Sub