編程中如何實現如果輸入非數字彈出msgbox警告？

sub ProcessABC

Err.Clear

On Error Resume Next

'這裏假設是妳要運行的語句，因為壹旦捕捉到壹個錯誤，如果下壹句也有錯誤，上面的語句會繼續往下執行的，所以要壹個錯誤壹個錯誤的捕捉。

If Err.Number <> 0 Then

MsgBox Err.Description '或者MsgBox "錯誤發生，根據Err.Number作出不同的反應。

Err.Clear

End If

End Sub