Acá esta el código completo gracias!

Option Explicit
'Instancias referidas al uso de Microsoft Excel
Dim Xapp As New Excel.Application
Dim Xlibro As New Excel.Workbook
Dim Xhoja As New Excel.Worksheet
'Variable para el ciclo, indice de y
Dim y As Integer
Private Sub Form_Load()
'Habre el archivo de excel que debe estar en la misma carpeta que la app
Set Xlibro = Xapp.Workbooks.Open("LUBRICACIÓN DE GEN SETS.xls")
'Hace referencia a la primera hoja
Set Xhoja = Xapp.Worksheets(1)
End Sub
Private Sub Form_Unload(Cancel As Integer)
'El False es para que no pida salvar los cambios
Xlibro.Close False
Xapp.Quit
'Libera la memoria
Set Xhoja = Nothing
Set Xlibro = Nothing
Set Xapp = Nothing
End Sub
Private Sub cmdInsertar_Click()
Dim fecha As Date
Dim x As Integer
x = 4
'Modifica los campos
fecha = CDate(txtRevision(0).Text)
Xhoja.Cells(y, x) = fecha
Xhoja.Cells(y, x + 4) = Val(txtHorimetro(0).Text)
txtCodigo(1).Text = ""
txtRevision(0).Text = ""
txtHorimetro(0).Text = ""
txtCodigo(1).SetFocus
'Si se habilita el resultado se ve en excel
'Xapp.Visible = True
'Guarda la información
Xapp.ActiveWorkbook.Save
End Sub
Private Function buscar() As Integer
'Funcion que busca
buscar = 0
For y = 6 To 148
If Val(txtCodigo(1).Text) = Xhoja.Cells(y, 2) Then
buscar = 1
Exit For
End If
Next
End Function
Private Sub txtCodigo_LostFocus(Index As Integer)
Dim resu As Integer
resu = buscar
If resu = 0 Then
MsgBox "La secuencia no es un código válido", vbOKOnly + vbInformation, "No Válido"
txtCodigo(1).Text = ""
txtCodigo(1).SetFocus
End If
End Sub