errores con msgbox

Estoy desarrollando una aplicacion y solo me falta solucionar 4 errores con
este msgbox:


If Err() Then
msgbox "Se produce el Error " & Err & " " & Err.description, &
vbCritical, "Error"

End If
On Error GoTo 0 'desactivar la deteccion de errores

"El operador '&' no está definido para los tipos 'String' y
'Microsoft.VisualBasic.ErrObject'."


"Los argumentos de método se deben incluir entre paréntesis."


"Se esperaba una expresión."

"Un valor de tipo 'Microsoft.VisualBasic.ErrObject' no se puede convertir en
'2'."