hur loopar man igenom tex allatextboxar på ett form???

Om det bara skall utföras en några få gånger och det inte finns så många andra kontroller på formuläret kan du loopa igenom Controls collectionen och kontrolera om det är en textruta:

Private Sub Command1_Click()
Dim Ctrl As Control
Dim vTemp As TextBox
For Each Ctrl In Controls
If TypeOf Ctrl Is TextBox Then
Set vTemp = Ctrl
vTemp.Text = ""
End If
Next
End Sub

Om du ska göra lite flera anrop och det är många kontroller. Eller om du vill dela in dem. t.ex om man har en tabkontroll. Kan du använnda dig av collection objektet:

Private mTextBoxes As Collection

Private Sub Form_Load()
Dim Ctrl As Control
Set mTextBoxes = New Collection

For Each Ctrl In Controls
If TypeOf Ctrl Is TextBox Then
mTextBoxes.Add Ctrl
End If
Next
End Sub

Private Sub Command1_Click()
Dim vTemp As TextBox
For Each vTemp In mTextBoxes
vTemp.Text = ""
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set mTextBoxes = Nothing
End Sub