Pesquisar na Comunidade

Gostaria de uma ajuda. Tenho um input que receberá valor em reais. Porém no momento da digitação o campo não pode permitir valor menor que 100,00 reais como posso fazer isso?

Olá, sou novo no VB Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$). O meu problema é o seguinte... No meu banco de dados o campo valor é do tipo moeda e o banco é em access No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula. Até ai acho que tudo bem... Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos Ex.: Eu digito na text box: R$ 1.250,00 E quando eu salvo aparece na datagridview: 1250 Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50 Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva Por favor! me ajudem. Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros... -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Public Shared Sub Moeda(ByRef txt As TextBox) Dim n As String = String.Empty Dim v As Double = 0 Try n = txt.Text.Replace(",", "").Replace(".", "") If n.Equals("") Then n = "" n = n.PadLeft(3, "0") If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1) v = Convert.ToString(n) / 100 txt.Text = String.Format("{0:C2}", v) txt.SelectionStart = txt.Text.Length Catch ex As Exception End Try End Sub Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress Select Case (valortxt.TextLength) Case 4 valortxt.SelectionStart = 5 End Select End Sub Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged Atendimentos.Moeda(valortxt) End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------