Public Function Zzs(TextName As TextBox, AsciiX As Integer) As Integer '錄入小數正限制
If Not ((Chr(AsciiX) >= "0" And Chr(AsciiX) <= "9") Or (Chr(AsciiX) = "." And InStr(1, TextName.Text, ".") = 0) _
Or AsciiX = vbKeyBack) Then
Zzs = 0
Else
Zzs = AsciiX
End If
End Function