Sub Reset_UserForm_Controls()

    Dim c       As Control



    For Each c In Me.Controls

        Select Case TypeName(c)

            Case "TextBox"

                c.Text = vbNullString

            Case "ListBox", "ComboBox"

                c.ListIndex = -1

        End Select

    Next c

    TextBox1.SetFocus

End Sub

Private Sub UserForm_Initialize()

    Reset_UserForm_Controls

End Sub