Zelleninhalt Positiv oder negativ?

ich mache es jetzt so, aber das ist ziemlich umständlich *G*:

Sub test()
Dim zahl, negativ As String
zahl = Cells(1, 1).Value
negativ = Mid(zahl, 1, 1)
If negativ = "-" Then
MsgBox "Zahl ist negativ"
End If
End Sub

mfg
c