小数字键盘无法输入小数点求助

Private Sub Frame4_AfterUpdate()
    Dim mValue
    
    mValue = Nz(Me.表1_子窗体![13])
    If Me.Frame4 = 11 Then Exit Sub
    Select Case Me.Frame4
    Case 0
        If Application.Screen.PreviousControl.OptionValue = 11 Then
            ctlValue = ".0"
        Else
            ctlValue = "0"
        End If
    Case Else
        If Application.Screen.PreviousControl.OptionValue = 11 Then
            If mValue = Int(mValue) Then
                mValue = mValue & "." & ctlValue & Me.Frame4
            Else
                mValue = mValue & ctlValue & CStr(Me.Frame4)
            End If
        Else
            mValue = mValue & ctlValue & CStr(Me.Frame4)
        End If
        ctlValue = ""
    End Select
    Me.表1_子窗体![13] = CStr(mValue)
    
    Me.Frame4 = Null
End Sub