Public Class MyExceptionClass

Private a As Integer

Private b As Integer

Private Sub FirstMethod(ByVal n As Integer, ByVal m As Integer)

      Dim r As Integer

      R = n/m

End Sub

Private Sub FirstMethod(ByVal x As Integer, ByVal y As Integer)

      Some codes

      FirstMethod(x,y)

End Sub

End Class