Tillad også indtastning af minustegn

Hejsa
Jeg har en Textbox, hvor jeg laver check på indtastningen, således der kun må tastes tal eller minustegn. Jeg har lidt problemer med at få tilladt minustegnet.

Koden er følgende:

Private Sub TextBox1_Change()
  Dim i As Integer, Entry As String
  Entry = TextBox1.Text
  For i = 1 To Len(Entry)
    If Not Mid(Entry, i, 1) Like \"[0-9]\" Then
      TextBox1.Text = OldText \'En global variabel
      Exit For
    End If
  Next i
End Sub