Procedure dan Function di visual basic 6

Membuat program menghitung total bayar

Listing code:
Sub tulisteks(teks As String, warna As ColorConstants)
With Label1
.Caption = teks
.ForeColor = warna
End With
End Sub
Function jumlah() As String
Dim angka1 As String, angka2 As String
Dim hasil As Single
angka1 = InputBox("Harga Barang 1 :", "Jumlah Angka")
angka2 = InputBox("Harga Barang 2 :", "Jumlah Angka")
If angka1 <> "" And angka2 <> "" Then
hasil = CSng(angka1) + CSng(angka2)
jumlah = CStr(hasil)
End If
End Function
Private Sub function_Click()
Label1.Caption = "jumlah = " & jumlah()
End Sub
Private Sub Label1_Click()
Call tulisteks("hasil sub", vbBlue)
End Sub
Private Sub sub_Click()
Call tulisteks("Menghitung total bayar", vbRed)
End Sub
Private Sub exit_Click()
Unload Me
End Sub

Objek	Properti	Nilai
Form1	Caption	Total Bayar
Label1	ToolTipText	Klik Di sini!