奇怪的流程與錯誤處理與VBA輸入框？

Question

我想了解爲什麼下面的代碼沒有給我預期的行爲。

我想問用戶一個十進制數（雙）。我在下面有一個錯誤處理程序，但是這個程序的行爲方式，當我輸入一個字或數字時它仍然會拋出錯誤。當我沒有放入任何東西時它會捕獲錯誤（空輸入）。

當我刪除if條件，它會按預期工作，但我不知道如何捕捉空的用戶輸入。

任何想法將不勝感激！

Sub MainTask() 

Dim userInput As Double 

TryAgain: 
    On Error GoTo ErrorHandler 
    userInput = InputBox("What is the amount purchased you would like to search for? ($)") 
    If Len(userInput) = 0 Then 
     Exit Sub 
    End If 
    MsgBox "You have entered a valid value!" 
Exit Sub 

ErrorHandler: 
MsgBox "Please enter a valid value." 
GoTo TryAgain 

End Sub 

Answer 1

我不喜歡錯誤處理，因爲它會覆蓋其他問題：

Sub MainTask() 

Dim userInput As Variant 
Dim output As Double 

Do 
    userInput = InputBox("What is the amount purchased you would like to search for? ($)") 
    If Len(userInput) = 0 Then Exit Sub 
    If Not IsNumeric(userInput) Then MsgBox "Please enter a valid value."   
Loop Until IsNumeric(userInput) 

output = userInput 
MsgBox "You have entered a valid value! " & output 

End Sub