VB Code:
  1. Dim MyNumber As Integer = 4050
  2.         MessageBox.Show(MyNumber.ToString.PadLeft(9, "0"))