[VB6] Gestione annullamento di InputBox

[oregon]

Il tipo di variabile deve essere una stringa, altrimenti non puoi confrontarlo con ""

Quindi

Private Sub cmdInserisci_Click()
   On Error Resume Next
   Dim newval As String
   newval = InputBox("Inserisci nuovo valore", "Inserimento dati")
   If newval <> "" Then
      Text5.Text = CDbl(newval)
   End If
End Sub