Visual Basic - Ayudaaaa con sintaxis

Saben, tengo un problema para expresar lo siguiente, necesito que mi inputbox almacene una cantidad, misma que sera comparada en mi consulta SQL1, si es igual mi campo a el contenido del inputbox, si es que coinciden que me muestre el contenido de mi campo en un msgbox, no se si me explique bien, pero les mando un ejemplo de lo que quiero hacer a ver que ajustes se pueden hacer gracias amigos.

numero = Val(InputBox("Teclea el numero del empleado", "Busqueda por Numero", 0))

ConeccionServer ' Aqui conecto al servidor

SQL1 = "SELECT IDEmpleado, Apellidos"
SQL1 = SQL1 & "From dbo.tblNominaEmpleados"
SQL1 = SQL1 & "Where IDEmpleado = cint(numero)"
Set rstNumero = conn.Execute(SQL1)

nom = rstNumero.Fields("apellidos").Value
MsgBox (nom)

Como le hago!!!!!

Modificar la consulta:
Dim nom As String
ConeccionServer ' Aqui conecto al servidor

SQL1 = "SELECT IDEmpleado, Apellidos "
SQL1 = SQL1 & "From dbo.tblNominaEmpleados "
SQL1 = SQL1 & "Where IDEmpleado = " & cint(numero) & ""
Set rstNumero = conn.Execute(SQL1)
If rstNumero.RecordCount > 0 Then
nom = rstNumero.Fields("apellidos").Value
MsgBox (nom)
End If