行“ On Error GoTo [label]”上GoTo的语法错误

Question

在编译时，在On Error GoTo ErrorHandler开头的GoTo“第15列附近”行出现语法错误。我也尝试过在行尾（On Error GoTo ErrorHandler:）的末尾添加一个冒号，就像有些人所做的那样，但我遇到了同样的错误。我缺少什么语法错误？

子例程：

Sub HandleAnError()
    On Error GoTo ErrorHandler

    Dim X
    X = 1/0

    Exit Sub

ErrorHandler:
    MsgBox "Error " & Err.Number & ": " & Err.Description
End Sub

Answer 1

Dim X = 1/0  

应该是

Dim X

X=1/0