Visual Basic - Error tipo 438 al crear funcion

Tengo una funcion donde creo un objeto perteneciente a una clase definida por mi, pero al intertar utilizarla de la forma:

Dim moptima As New Maquinaz
moptima = menortt(ala)

Me arroja el error tipo 438.

Si alguien sabe cuál es el problema, le agradecería. Gracias.

Esta es mi funcion:

Function menortt(aaa() As Maquinaz)
':devuelve la maquina con el menor TT
Dim dtt As Double, j As Integer, moptima As New Maquinaz
Set moptima = aaa(1)
dtt = aaa(1).TT
For k = 1 To aaa(0).cumplefechalim 'ultima fila de la matriz tamaño 50 donde hay una maq
j = aaa(k).filamaq
dtt = aaa(k).TT
If j <> 0 Then
If aaa(k).TT < dtt Then
moptima = aaa(k) 'maquina optima incial (con menor TT)
End If 'dtt
Else
Exit For
End If 'j
Next k 'k1
menortt = moptima
End Function

Según lo que viene en la ayuda del MSDN sobre el error 438 es esto..:

"....El objeto no acepta esta propiedad o método (Error 438)

No todos los objetos admiten todas las propiedades y métodos. Las causas y posibles soluciones de este error son las siguientes:

No existe este método o propiedad para esteobjeto de Automatización.
Vea la documentación del objeto para mayor información acerca del objeto y para comprobar la forma correcta de escribir las propiedades y métodos.

Especificó un procedimiento Friend que se llama posteriormente.
El nombre del procedimiento Friend se debe conocer en eltiempo de compilación. No puede aparecer en una llamada posterior. ..."

Aunque también sería bueno saber en qué línea te pone el error, o si de plano al compilar te marca el error