VB DemoOnErrorResumeNext1

 Module DemoOnErrorResumeNext1

    'Buka DemoOnErrorResumeNext1.vbproj

    Sub Main()

        Dim a, b, c As Integer

        a = 1 : b = "Satu"

        c = a + b

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

        Debug.Print("Selesai")

    End Sub

End Module