VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} NumberInsert 
   Caption         =   "Number Insertion"
   ClientHeight    =   4560
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4965
   OleObjectBlob   =   "NumberInsert.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "NumberInsert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CancelBtn_Click()
    Me.Tag = False
    Me.Hide
End Sub

Private Sub NumberLength_Change()
    NumberLengthSpin.Value = NumberLength.Value
    MakeSample
End Sub

Private Sub OKBtn_Click()
    Me.Tag = True
    Me.Hide
End Sub

Private Sub ReplaceEnd_Change()
    MakeSample
End Sub

Private Sub ReplaceStart_Change()
    MakeSample
End Sub

Private Sub MakeSample()
    SampleText.Caption = ReplaceStart.Value & Format("15", String(CLng(NumberLength.Value), "0")) & ReplaceEnd.Value

End Sub

Private Sub NumberLengthSpin_SpinUp()
    NumberLength.Value = NumberLengthSpin.Value
    MakeSample
End Sub

Private Sub NumberLengthSpin_SpinDown()
    NumberLength.Value = NumberLengthSpin.Value
    MakeSample
End Sub

Private Sub UserForm_Initialize()
End Sub