新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim strA$, lngA&
    strA = " 0 123234543543545235345345028234"

    lngA = 9
    On Error Resume Next
    lngA = CLng(Val(strA))
    Debug.Print lngA

    If Err.Number <> "" Then
        MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "错误"
    End If

    On Error GoTo 0    '继续捕捉错误
    
    Debug.Print "最终lngA=" & lngA
    lngA = 1 / 0 '到这行会出错，这样才能证明在继续捕捉错误
End Sub

运行结果：

最终lngA=9