Membuat error handling di VB

Untuk membuat error handling di VB6. Misal tabel transaksi dengan kolom amount. harus diisi bilangan , tak boleh huruf. Agar tidak error programnya saat ada yang menginput huruf. Beri script berikut:

-On Error Go To .... di awal sub program
-dan Exit Sub
-lalu Pesan: di akhir sub program.

contoh penggunaan di button "ADD" data row

Private Sub BtnEnh6_Click()
On Error GoTo Pesan

SqlMasuk = ""
SqlMasuk = "INSERT INTO transaksi" _
& " (Tanggal,NomorInduk,NamaSiswa,JumlahRupiah)" _
& " VALUES ('" & dttanggal.Value & "','" & txtnoinduk.Text & "',
& txtjumlahrupiah.Text & "')"
db.Execute SqlMasuk, , adCmdText

Call Form_Load
Adodc3.Refresh

Exit Sub

Pesan:
MsgBox "Input harus angka ...!", 16, "ERROR"

End Sub