.net - 10進数のtetboxの最大長

Question

ユーザーが10進値を入力できるTextBoxを作成したいと思います。キャッチは、整数部分（小数点以下の値）にmaxlengthを与えたいので、maxlengthが5であると言うとき

ユーザーは入力できます

.12
12345
12345.67

ユーザーは入力できないようにする必要があります

123456
123456.78

アルファベットを制限するためにテキストボックスのキー押下を処理しています

If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "."c Then
    e.Handled = True
End If

' only allow one decimal point
If e.KeyChar = "."c AndAlso TryCast(sender, TextBox).Text.IndexOf("."c) > -1 Then
    e.Handled = True
End If

誰かがこのmaxlength部分を手伝ってくれませんか。ヘルプと指示に感謝します。