Membuat Input Box di vb6

Private Sub Cmdhapus_Click()
Dim xhapus As String
xhapus = InputBox("Ketik No. Cust yang akan di hapus", "Lookup")
If StrPtr(xhapus) = 0 Then
            'Kode InputBox Cancel
            'MsgBox "You pressed cancel!"
ElseIf Len(xhapus) = 0 Then
        MsgBox "Anda Harus Mengisi Kode, tidak boleh kosong", vbInformation, "Hapus"
Else
    Adocustomer.RecordSource = "select * from customer where nocust='" & Trim(xhapus) & "'"
    Adocustomer.Refresh
    If Adocustomer.Recordset.RecordCount > 0 Then
        Adocustomer.Recordset.Delete
        Adocustomer.Refresh
        MsgBox "Data telah terhapus"
    Else
        MsgBox "No. Cust yang anda masukkan tidak ada"
    End If
End If
    Adocustomer.RecordSource = "select * from customer"
    Adocustomer.Refresh
End Sub

Pembulatan Angka

Dim Nilai As Double, Hasil As Long

Nilai = 1.4 'bilangan yg akan dibulatkan

Hasil = Int(Nilai) + IIf(CDbl(CStr(Nilai - Int(Nilai))) >= 0.4, 1, 0) 'Batas = 0,4