gestione procedure e funzioni con visual basic

uso di procedure e funzioni con dati da tastiera

Public Function articolo(prezzou As Currency, quanto As Single, sconto As Single, iva As Single) As Currency
Dim totale As Currency
totale = prezzou * quanto
totale = totale - totale * sconto / 100
totale = totale + totale * iva / 100
articolo = totale
End Function

Private Sub cancellare_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton1_Click()
Dim prezzouni As Currency
Dim quanto As Single
Dim sconto As Single
Dim iva As Single
prezzouni = TextBox1.Text
quanto = TextBox2.Text
sconto = TextBox3.Text
iva = TextBox4.Text
ListBox1.AddItem ("scontato =" & articolo(prezzouni, quanto, sconto, iva))
CommandButton2.SetFocus
End Sub

Private Sub CommandButton2_Click()
Dim prezzouni As Currency
Dim valore As Currency
Dim quanto As Single
Dim sconto As Single
Dim iva As Single
prezzouni = TextBox1.Text
quanto = TextBox2.Text
sconto = TextBox3.Text
iva = TextBox4.Text
Call articolo(prezzouni, quanto, sconto, iva)
If articolo(prezzouni, quanto, sconto, iva) > 1000 Then
valore = articolo(prezzouni, quanto, sconto, iva)
ListBox1.AddItem ("scontato = " & valore)
Else
valore = articolo(prezzouni, quanto, 0, iva)
ListBox1.AddItem (" non scontato = " & valore)
End If
CommandButton3.SetFocus
End Sub

Private Sub CommandButton3_Click()
Dim prezzouni As Currency
Dim valore As Currency
Dim quanto As Single
Dim sconto As Single
Dim iva As Single
prezzouni = TextBox1.Text
quanto = TextBox2.Text
sconto = TextBox3.Text
iva = TextBox4.Text
valore = articolo(prezzouni, quanto, sconto, iva)
ListBox1.AddItem ("scontato = " & valore)
ListBox1.AddItem ("-------------")
cancellare.SetFocus
End Sub

Private Sub UserForm_Click()

End Sub