Per la prima richiesta basta che nel codice di 'Calcola' metti un
test :
codice:
Private Sub Calcola()
    Text2.Text = ""
    nPVT = nPVM - nP
    ' Test 
    If nPVT > nPVM Then nPVT = nPVM 
    
    Text3.Text = nPVT
End Sub
Per il secondo problema, setta MaxLenght dei TextBox a 0 (Zero).

Ciao,

PS: Ciao a tutti, vado a casa.