ตรวจสอบจุดทศนิยมให้ห้ามใส่เกิน 1 จุด หรือจุดทศนิยมได้แต่ถ้าเกิน 1 จุดให้ขึ้น Message

    Private Sub txtProcess_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtProcess.KeyDown
        If e.KeyCode = 13 Then
            Dim ary As Array
            ary = Split(Me.txtProcess.Text, ".")
            MessageBox.Show(UBound(ary))
        End If
    End Sub

IF Ubound(ary) >1 then
messagebox.show("เกินครับ")