Office: (Office 365) VBA Verlust der Muttersprache (Mid)

Hallo,

Code:

If Len(Me.TxMat) = 10 And IsNumeric(Me.TxMat) Then
    Me.TxMat = Left(Me.TxMat, 4) & "." & mID(Me.TxMat, 5, 2) & "." & Right(Me.TxMat, 4)
End If

Dieser Codeschnipsel soll aus 1234567890 in der Textbox bitte 1234.56.7890 machen.
Wie man an der Schreibweise (Autokorrektur) sehen kann, erkennt VBA Mid nicht.
Ich habe versehentlich den Schlüssel des Datensatzes in der mit dem Formular verbundenen Tabelle des Datensatzes mID genannt und vermute, dass der Code das Schlüsselwort mit der DS-ID verwechselt.
Natürlich habe ich die ID mittlerweile unbenannt, VBA weigert sich aber vehement, den neuen Staat anzuerkennen und beharrt auf sein mID.

Ich habe es schon mit komprimieren und reparieren versucht, kein Erfolg.
Wie löse ich dieses Problem?
Gruß
Doming

 

Nochmal hallo,

Dank dieses Eintrags habe ich jetzt diese Schreibweise angewandt

Code:

If Len(Me.TxMat) = 10 And IsNumeric(Me.TxMat) Then
    Me.TxMat = Left(Me.TxMat, 4) & "." & VBA.Strings.mID(Me.TxMat, 5, 2) & "." & Right(Me.TxMat, 4)
End If

Die Autokorrektur beharrt zwar auf die Schreibweise, aber jetzt funktioniert der Code zumindest.
Schönen Dank für die Aufmerksamkeit
Gruß
Doming

 

Hast Du mal die Verweise zu den VBA Bibliotheken geprüft?

 

Hallo,
äh, nö, habe ich nicht. Für mich kommen Left,Right und Mid aus dem selben Stall, also haben die gefälligst zu funktionieren ;-)
Gruß
Doming