[source,vb6]
----
'Each function does a part of what the original setCoordinates function was doing, so confusion risks are lower
Public Sub SetOrigin(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer)
  ' ...
End Sub

Public Sub SetSize(ByVal width As Integer, ByVal height As Integer, ByVal depth As Integer)
  ' ...
End Sub
----