Meldung Variable fehlt

Private Sub Textbox42_Change()
If BoEnter = True Then Exit Sub
If Len(UserForm1.Frame4.TextBox42) = 2 Then
If InStr(UserForm1.Frame4.TextBox42, ".") = 0 And BoEnter = False Then UserForm1.Frame4. _
TextBox42 = UserForm1.Frame4.TextBox42 & "."
ElseIf Len(UserForm1.Frame4.TextBox42) = 5 Then
If Len(UserForm1.Frame4.TextBox42) - Len(Application.Substitute(UserForm1.Frame4. _
TextBox42, ".", ""))