Datum & SVerweis mit VBA

ich hab da zwei Probleme
1. Problem
In die TextBox1 übergebe ich mit TextBox1 = Date das aktuelle Datum. Das funktioniert perfekt, jedoch möchte ich, daß er nur den Monat und nicht das Jahr und den Tag anzeigt

2. Problem
Mit

Eingabe.Artikelbezeichnung = WorksheetFunction.VLookup(Eingabe.Artikelnummer, Sheets(1).Range("1:65536"), 2, False)

versuche ich einen SVerweis zu machen, das Ergebnis soll in "Eingabe.Artikelbezeichnung" Suchkriterium ist Eingabe.Artikelnummer, die Matrix ist Sheets(1).Range("1:65536"), Spaltenindex ist "2"
Eigentlich sollte alles passen, aber es geht irgendwie nicht.

Kan mir jemand helfen?

Danke & Gruß
Chris