Visual Basic

Dim b As Integer = 23
ModifySomething(b)
Debug.WriteLine("The value of b is: " & b.ToString())

Private Sub ModifySomething(ByRef someInt As Integer)
    someInt = 99
End Sub

-----8<------------------------------------------------

Output:
The value of b is: 99

Public Class Form1
   Private Function SaveObject()
          Object.Save()
   End Private
End Class

Public Class Object
    ' ... members, properties and constructors ...

    Public Property DataID as Integer
          ' ... Get and Set the DataID
    End Property

    Public Sub Save()
       Dim DataSaver as New ObjectDataLogic
       DataSaver.Save(Me)
    End Sub
End Class

Public Class ObjectDataLogic
    ' ... members, properties and constructors ...
    Public Sub Save(ByRef Object as Object)
        ' ... save to the database and return get the new ID
        Object.DataID = NewID   
    End Public     
End Class