Private Sub Test()
        Dim sngZahl As Single
        Dim j As Integer
 
        ClsNoWert.arrSngNoWert.Add(22.2)
 
        For j = 0 To Cls_NoWert.arrSngNoWert.Count - 1
            sngZahl= Cls_NoWert.arrSngNoWert.Item(j)
            SetFrm(Me, sngZahl)
        Next
 
 
    End Sub
    Private Sub SetFrm(ByRef Frm As frmTest, ByVal sngZahl As Single)
 
 
        Dim EnumFrmContr As IEnumerator
        Dim Ctl As Control
        EnumFrmContr = Frm.Controls.GetEnumerator
 
        Do While EnumFrmContr.MoveNext
            Ctl = DirectCast(EnumFrmContr.Current, Control)
            Select Case Ctl.Name
                Case Is = "txt_myFld"
                    Frm.txt_myFld.Visible = True
                    Frm.txt_myFld.Text = sngZahl 
 			  'Frm.txt_myFld.Text = Format(sngZahl , "0,00")
                    Exit Do
            End Select
        Loop
 
    End Sub