VB 2005 - error en funcion

[Laufwerk]

Hola amigos!!!
tengo el siguiente codigo

Código:

Function checkFile(ByVal cellcheck) As Boolean
    If (Range(cellcheck).Value = "") Or (Range(cellcheck).Value = FALSO) Or (Range(cellcheck).Value = "Debes cargar un archivo en esta celda") Then
            SetRedMyCell (cellcheck)
            Return false
            Else
                SetWhiteMyCell (cellcheck)
                'myFirstCellAreOk = True
                return true
    End If
End Function

Alguien sabe pq me falla ?
no entiendo porqué no me deja poner el return ture o return false..

Gracias!!

[megaligathor]

creo que te falta especificar el tipo de parámetro con el que estas trabajando.

Código:

Function checkFile(ByVal cellcheck As String) As Boolean 

aqui le puse de tipo "String" ya que parece ser así o tal vez sea uno de los métodos que estas usando dentro de las condiciones. Lo ideal tambien seria que coloques el error que te bota la IDE de trabajo, para poder ayudarte en tu problema de manera objetiva.

ATTE RealTMegalix

[mvazquez]

Hola Laufwerk



Function checkFile(ByVal cellcheck) As Boolean
checkFile = False

If (Range(cellcheck).Value = "") Or (Range(cellcheck).Value = FALSO) Or (Range(cellcheck).Value = "Debes cargar un archivo en esta celda") Then
SetRedMyCell (cellcheck)
checkFile = false
Else
SetWhiteMyCell (cellcheck)
'myFirstCellAreOk = True
checkFile = true
End If

return checkFile
End Function

Intenta con eso, espero que te sea util....
Saludos.

[Laufwerk]

probé con vuestras soluciones y seguia dandome error.
Ahora tengo este codigo y el error me lo da al hacer el return

Código:

Function checkFile(ByVal cellcheck As String) As Boolean
    Dim isCorrect As Boolean
    isCorrect = False
    If (Range(cellcheck).Value = "") Or (Range(cellcheck).Value = FALSO) Or (Range(cellcheck).Value = "Debes cargar un archivo en esta celda") Then
        Dim errorText As String
        errorText = "Debes cargar un archivo en esta celda"
        SetRedMyCell (cellcheck)
        Else
            SetWhiteMyCell (cellcheck)
            'myFirstCellAreOk = True
            'return true
            isCorrect = True
    End If
    return isCorrect
End Function

No entiendo que me está pasando

Me salta un error diciendome, se esperaba fin de la instrucción