Originariamente inviato da ladyBlu
ecco, prova questo... di più non posso fare.
codice:
Private Sub Form_Activate()
        txtAcconto.Locked = True
End Sub

Private Sub txtAcconto_Change()

        If Trim(txtPrezzo) <> "" And Trim(txtAcconto) <> "" Then
            
            If Not IsNumeric(txtPrezzo) Then
                    MsgBox "Il Prezzo deve essere un valore numerico"
                    txtPrezzo = ""
                    txtAcconto = ""
                    txtRimanenza = ""
                    txtPrezzo.SetFocus
                    Exit Sub
            End If
            
            If Not IsNumeric(txtAcconto) Then 
                MsgBox "L' Acconto deve essere un valore numerico"
                txtAcconto = ""
                txtPrezzo = ""
                txtRimanenza = ""
                txtAcconto.SetFocus
                Exit Sub
            End If

            Dim miaRimanenza As Single
            
            txtPrezzo = Replace(txtPrezzo, ".", ",")
            txtAcconto = Replace(txtAcconto, ".", ",")
            miaRimanenza = CSng(txtPrezzo) - CSng(txtAcconto)
            txtRimanenza = miaRimanenza
        
        End If

End Sub

Private Sub txtPrezzo_Change()

        txtPrezzo = Replace(txtPrezzo, ".", ",")
        txtAcconto = txtPrezzo
        txtRimanenza = txtPrezzo
        If txtPrezzo = "" Then
                txtAcconto.Locked = True
            Else
                txtAcconto.Locked = False
        End If

End Sub
ciao ciao
hai fatto pure troppo

grazie mille è perfetto