FOROS DE INFORMATICA

HOLA. Tengo una consulta . Estoy haciendo un formulario y me salen estos errores
error de compilación: se esperaba fin de la instrucción

1 ................

Function validacajas()
        If Trim(txtCliente.Text) = Empty Then
            validacajas = "nombre del cliente"
        Elself Trim(txtRuc.Text) = Empty Or Len (txtRuc.Text) > 11 then
            validacajas = "Ruc del Cliente"
        End If
End Function

2. .................

Function determinaLetras()
    If Opt3.Value = True Then
            determinaLetras = 3
            Elself opt6.value = true then
            determinaLetras = 6
            elself opt9.value = true then
            determinaLetras = 9
            Else
            determinaLetras = 1
    End If
End Function

3 ...........

Function asignaPrecio(ByVal producto As String) As Currency
    If producto = "Lavadora" Then
        precio = 1500
    Elself producto = "Refrigeradora"  Then
        precio = 3500
    Elself producto = "Televisión" Then
        precio = 1600
    Elself producto = "RadioGrabadora" Then
        precio = 500
    Elself producto = "Cocina"  Then
        precio = 1000
    Elself producto = "Licuadora" Then
        precio = 300
    End If
    asignaPrecio = precio
End Function

tambien me sale error de compilacion no se ha definido sub o function



Private Sub UserForm_Activate()
    Call llenaproductos
    ' mostrar la fecha actual
    lbl.Fecha.Caption -Date
    'Inhabilita las opciones
    HabilitaOpciones (False)
End Sub


CUALES SON MIS ERRORES Y QUE SOLUCION LE DOY...