Private Sub Frame1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim LeControl As Object
Dim Num As Byte
Dim Number As String
For Each LeControl In Frame1.Controls
If Left(LeControl.Name, 7) = "TextBox" Then
If Controls(LeControl.Name).BackColor = RGB(225, 225, 225) Then
Num = Right(LeControl.Name, Len(LeControl.Name) - 7)
Number = "h & Num"
Number = Replace(Controls(LeControl.Name).Value, ".", ":")
[COLOR=red]"h & Num" = Number
[/COLOR] End If
End If
Next
End Sub