Visual Basic para Aplicaciones - Detectar un numero negativo en una celda

Que tal.
Estoy trabajando en una macro de excell.
Busco su consejo para poder saber cual es la funcion para saber si un numero en una celda es positivo o negativo.
Espereo me ayuden, gracias

If Range("a1").Value > 0 Then
MsgBox "es positivo"
ElseIf Range("a1").Value < 0 Then
MsgBox "es negativo"
End If