Multipage Textbox leeren

Private Sub cmdAendern_Click()
Dim Contr As Control
Dim gesName
With Me
For Each Contr In .Controls
‘  If MultiPage1.Value = 0 Then ……..
If MultiPage1.Value = 1 Then
gesName = Contr.Name Like "txtName" & MultiPage1.Value & "*"
MsgBox gesName
Contr.Name Like "txtName" & MultiPage1.Value & "*"=” ”
End If
‘  If MultiPage1.Value = 2 Then ……..
Next Contr
End With
End Sub

Private Sub MultiPage1_Change()
With MultiPage1
If .Value = 1 Then Call Clear_Controls(.Pages(1))
End With
End Sub

Private Sub Clear_Controls(objContainer As Object)
Dim objControl As Control
For Each objControl In objContainer.Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "Label"
objControl.Caption = ""
Case "ComboBox", "ListBox"
objControl.ListIndex = -1
Case "CheckBox", "OptionButton", "ToggleButton"
objControl.Value = False
Case "ScrollBar", "SpinButton"
objControl.Value = objControl.Min
Case "Image"
Set objControl.Picture = Nothing
End Select
Next
End Sub