Si que falla, prueba con esta pequeña modifcacion
Código:
Private Sub Form_Load()
getConvierteMayusculas (Me.Name)
End Sub
Sub getConvierteMayusculas(strFormName As String)
'----------------------------------------------------------------------------------------------------------------------
'Descripción: <Obtiene el número de controles tipo caja de texto que existen en el formulario, convierte a mayusculas
' el texto que contiene la caja de texto y elimina los espacios en ambos lados>
'Parámetros: <Ninguno>
'Regresa: <Nada>
'Fecha: <23/02/06>
'Programación: <Juan Jesus Hernandez Castañeda>
'-----------------------------------------------------------------------------------------------------------------------
Dim n As Integer 'Declarar variable
Dim i As Integer
For i = 0 To Forms.Count - 1
If Forms(i).Name = strFormName Then
For n = 0 To Forms(i).Controls.Count - 1 'Asigna a n un valor consecutivo para contar cuantos controles existen
If TypeOf Forms(i).Controls(n) Is TextBox Then 'Si el control actual es una caja de texto
Forms(i).Controls(n).Text = UCase(Trim(Forms(i).Controls(n).Text)) 'Convierte a mayusculas el texto contenido en las cajas de texto
End If 'Fin de la condicion
Next n 'Sigueinte control
End If
Next
End Sub