DemoOnErrorResumeNext2

 Module DemoOnErrorResumeNext2

    'Buka DemoOnErrorResumeNext2.vbproj

    Sub Main()

        On Error Resume Next

        Dim a, b, c As Integer

        'Inisialisasi variabel

        a = 1 : b = "Satu"""

        c = a + b

        Debug.Print("Nilai a + b = " & c)

        Debug.Print("Selesai")

    End Sub

End Module