Function VAL()

[Beaker s.a.]

Hallo Peter,
Wozu

Code [Auswählen] Erweitern

Trim(Str(Val(Me.ActiveControl.Tag))) ?
Durch die autom. Typumwandlung von VBA erhältst du an dieser Stelle
immer einen String

Code [Auswählen] Erweitern

Vfeldname = "Value" & Me.ActiveControl.Tag ' Suchfeld
gruss ekkehard

P.S.: Dein Code deutet auf das Fehlen von "Option Explicit" in allen
Modulköpfen hin. Ergänze das in eigenem Interesse. Du musst Variable
dann vor Verwendung immer erst deklarieren

Code [Auswählen] Erweitern

Function fncSuchStr()
    Dim Vfeldname As String
    Dim Lfeldname As String
.Hinweis: in alle neuen Module kannst du es autom. eintragen lassen,
wenn du das 2. Häkchen von oben wie im Bild gezeigt setzt.