Sverweis nach links

Sub test
With Test
.TextBox4.Value = (Application.WorksheetFunction.index("A4:A" & Range("A200").End(xlUp).Row,  _
Application.WorksheetFunction.Match(.ComboBox1.Value, Range("C4:C" & Range("C200").End(xlUp).Row), 0)))
End with
End Sub

Sub oder 

Function nicht definiert.
Was läuft da falsch?
Danke und Gruß
A.