只能輸入數字

 Function IsInputChar(ByVal charCode As Char) As Boolean
        If (Char.IsControl(charCode) Or Char.IsDigit(charCode)) Then
            Return True
        Else
            Return False
        End If
    End Function