VB6 - Quick Help!

[CSGAS]

I'm reading the value from a text box on one form using:

Val(InitialSelection.IN_AmbPres.Text)

into its parent form and writing it to an excel sheet using:

objWorkSheet.Range("B1").Value = Val(InitialSelection.IN_AmbPres.Text)


Now - It all worked yesterday. Today - Noop. Today, as it gets to the line just above it REOPENS the 'InitialSelection' form with all text boxes blank, writing a whole load of zeros into my excel sheet.

Why?

 

[CSGAS]

Just thought - is possibly due to how I've opened the form?

Private Sub ProcessData_Click()
Dim InitialSelection As New InitialSelection
InitialSelection.Show
End Sub