Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
            If IsNumeric(e.KeyChar) = False And e.KeyChar <> Chr(8) And e.KeyChar <> "." Then
                e.KeyChar = ""
            End If
            If e.KeyChar = "." Then
                If TextBox1.Text.Contains(".") = True Then
                    e.KeyChar = ""
                End If
            End If
    End Sub